Lines Matching refs:filename

73 while( my $filename = shift )
75     print STDERR "$filename... ";
77     if( dir($filename)->parent eq $lib_include_dir ||
78          dir($filename)->parent eq $lib_source_dir )
83     if( -d $filename ) { print STDERR "skip (directory)\n"; next }
85     open my $rfh, '<', $filename or die;
104             $warnings{$filename} = [] unless $warnings{$filename};
105             push @{ $warnings{$filename} }, $line;
110     open my $wfh, '>', $filename or die;
118     for my $filename (sort keys %warnings) {
119         print "in $filename:\n";
120         print for @{ $warnings{$filename} };