From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 7 Mar 2006 14:36:00 +0000 (+0000)
Subject: Make report on bad filenames easier to read
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=479ac4ebd43c73d48878a374987b8699da2c9231;p=p5sagit%2Fp5-mst-13.2.git

Make report on bad filenames easier to read

p4raw-id: //depot/perl@27400
---

diff --git a/Porting/check83.pl b/Porting/check83.pl
index eb02002..71488ec 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;
 	}
     }
 }