diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-07 14:36:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-07 14:36:00 +0000 |
| commit | 479ac4ebd43c73d48878a374987b8699da2c9231 (patch) | |
| tree | b629667cd2c6008b5a4041769ca77be56e6ac3ae /Porting | |
| parent | 500071f48117cc3acc337182631e8ca2e34b1493 (diff) | |
| download | perl-479ac4ebd43c73d48878a374987b8699da2c9231.tar.gz | |
Make report on bad filenames easier to read
p4raw-id: //depot/perl@27400
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/check83.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Porting/check83.pl b/Porting/check83.pl index eb020023b3..71488ec830 100644 --- a/Porting/check83.pl +++ b/Porting/check83.pl @@ -63,9 +63,9 @@ if (open(MANIFEST, "MANIFEST")) { 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; } } } |