Lines Matching refs:filename
178 ($dir, $filename) = $ARGV[0] =~ m#(.*)/(.*)#
179 or ($dir, $filename) = $ARGV[0] =~ m#(.*)\\(.*)#
180 or ($dir, $filename) = $ARGV[0] =~ m#(.*[>\]])(.*)#
181 or ($dir, $filename) = ('.', $ARGV[0]);
359 my $cfile = $filename;
369 print("#line ", $line_no[@line_no - @line -1], " \"$filename\"\n")
743 # the rest of the current line should contain a valid filename
747 death("INCLUDE: filename missing")
766 Filename => $filename,
777 #/* INCLUDE: Including '$_' from '$filename' */
781 $filename = $_ ;
801 my $ThisFile = $filename ;
802 my $isPipe = ($filename =~ /\|\s*$/) ;
804 -- $IncludedFiles{$filename}
810 $filename = $data->{Filename} ;
818 print STDERR "Error reading from pipe '$ThisFile': $! in $filename, line $lastline_no\n" ;
824 #/* INCLUDE: Returning to '$filename' from '$ThisFile' */
886 open($FH, $filename) or die "cannot open $filename: $!\n";
892 * contents of $filename. Do not edit this file, edit $filename instead.
901 print("#line 1 \"$filename\"\n")
923 printf("#line %d \"$filename\"\n", $. + 1)
932 die ("Error: Unterminated pod in $filename, line $podstartline\n")
1095 push (@BootCode, "#line $line_no[@line_no - @line] \"$filename\"")
1668 warn("Please specify prototyping behavior for $filename (see perlxs manual)\n")
1704 print STDERR "@_ in $filename, line $line_no\n" ;