Lines Matching refs:file
43 foreach my $file (sort (keys %newpatchfile)) {
44 print SORTEDPATCH $file."\t";
45 if (defined($oldpatchfile{$file})) {
46 if ( (join '', @{$oldpatchfile{$file}{'data'}}) eq (join '', @{$newpatchfile{$file}{'data'}}) ) {
49 print SORTEDPATCH $oldpatchfile{$file}{'origtimestamp'}."\n";
50 print SORTEDPATCH $oldpatchfile{$file}{'patchedfilename'}."\t";
51 print SORTEDPATCH $oldpatchfile{$file}{'patchedtimestamp'}."\n";
52 print SORTEDPATCH @{$oldpatchfile{$file}{'data'}};
58 print SORTEDPATCH $newpatchfile{$file}{'origtimestamp'}."\n";
59 print SORTEDPATCH $newpatchfile{$file}{'patchedfilename'}."\t";
60 print SORTEDPATCH $newpatchfile{$file}{'patchedtimestamp'}."\n";
61 print SORTEDPATCH @{$newpatchfile{$file}{'data'}};