Eliminate tryAMAGICunW() by refactoring tryAMAGICun{DEREF,TARGET}

[perl5.git] / t / porting / checkcase.t

diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t
index 527af22..6ae1cf8 100644 (file)
--- a/t/porting/checkcase.t
+++ b/t/porting/checkcase.t
@@ -20,9 +20,10 @@ find(sub {
           push @{$files{lc $name}}, $name;
         }, '..');
 
-foreach (values %files) {
+foreach (sort values %files) {
     if (@$_ > 1) {
                print "not ok ".++$test_count. " - ". join(", ", @$_), "\n";
+               print STDERR "# $_\n" foreach @$_;
     } else {
                print "ok ".++$test_count. " - ". join(", ", @$_), "\n";
        }