Lines Matching refs:file

19 $file = basename($0, '.PL');
20 $file .= '.com' if $^O eq 'VMS';
22 open OUT,">$file" or die "Can't create $file: $!";
24 print "Extracting $file (with variable substitutions)\n";
89 while (defined (my $file = next_file())) {
90     if (-l $file and -d $file) {
91         link_if_possible($file) if ($opt_l);
102     if ($file eq '-') {
106 	($outfile = $file) =~ s/\.h$/.ph/ || next;
107 	print "$file -> $outfile\n" unless $opt_Q;
108 	if ($file =~ m|^(.*)/|) {
116 		last if -f $file;
120 	open(IN,"$file") || (($Exit = 1),(warn "Can't open $file: $!\n"),next);
128     while (defined (local $_ = next_line($file))) {
275 		last unless defined ($next = next_line($file));
315 		last unless defined ($next = next_line($file));
381     $Is_converted{$file} = 1;
382     if ($opt_e && exists($bad_file{$file})) {
387 	queue_includes_from($file) if $opt_a;
533     my $file = shift;
605                      $file =~ m!(?:^|/)linux/byteorder/pdp_endian\.h$! &&
610                     warn "Cannot parse $file:\n$in\n";
611                     $bad_file{$file} = 1;
632     my $file;
635         $file = shift @ARGV;
637         if ($file eq '-' or -f $file or -l $file) {
638             return $file;
639         } elsif (-d $file) {
641                 expand_glob($file);
643                 print STDERR "Skipping directory `$file'\n";
646             return $file;
648             print STDERR "Skipping `$file':  not a file or directory\n";
676 # Given $file, a symbolic link to a directory in the C include directory,
711 # Push all #included files in $file onto our stack, except for STDIN
715     my ($file)    = @_;
718     return if ($file eq "-");
720     open HEADER, $file or return;
962 close OUT or die "Can't close $file: $!";
963 chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
964 exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';