This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: Don't calc value twice
authorKarl Williamson <public@khwilliamson.com>
Sun, 25 Sep 2011 15:40:27 +0000 (09:40 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 25 Sep 2011 20:18:09 +0000 (14:18 -0600)
t/porting/podcheck.t

index 3106cbc..ca69350 100644 (file)
@@ -1672,7 +1672,7 @@ foreach my $filename (@files) {
                 else {
                     $count = @{$problems{$filename}{$message}};
                 }
-                my_safer_print($copy_fh, canonicalize($filename) . "\t$message\t$count\n");
+                my_safer_print($copy_fh, $canonical . "\t$message\t$count\n");
             }
             next;
         }