Change 27400 by [EMAIL PROTECTED] on 2006/03/07 14:36:00
Make report on bad filenames easier to read
Affected files ...
... //depot/perl/Porting/check83.pl#8 edit
Differences ...
==== //depot/perl/Porting/check83.pl#8 (text) ====
Index: perl/Porting/check83.pl
--- perl/Porting/check83.pl#7~26364~ 2005-12-15 02:04:36.000000000 -0800
+++ perl/Porting/check83.pl 2006-03-07 06:36:00.000000000 -0800
@@ -63,9 +63,9 @@
for my $dir (sort keys %dir) {
for my $edt (keys %{$dir{$dir}}) {
- my @files = @{$dir{$dir}->{$edt}};
+ my @files = @{$dir{$dir}{$edt}};
if (@files > 1) {
- print "directory $dir conflict $edt: @files\n";
+ print "conflict on filename $edt:\n", map " $_\n", @files;
}
}
}
End of Patch.
