This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make dual-life.t emit full paths
authorFather Chrysostomos <sprout@cpan.org>
Thu, 27 Oct 2011 01:12:23 +0000 (18:12 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 27 Oct 2011 03:16:58 +0000 (20:16 -0700)
When it fails, this makes it easier to see why.

t/porting/dual-life.t

index 14d930c..b6f6694 100644 (file)
@@ -50,11 +50,11 @@ my $ext = $^O eq 'VMS' ? '.com' : '';
 for my $f ( @programs ) {
   $f =~ s/\.\z// if $^O eq 'VMS';
   next if $f =~ $not_installed;
-  $f = basename($f);
-  if(qr/\A(?i:$f)\z/ ~~ %dist_dir_exe) {
-    ok( -f "$dist_dir_exe{lc $f}$ext", "$f$ext");
+  my $bn = basename($f);
+  if(qr/\A(?i:$bn)\z/ ~~ %dist_dir_exe) {
+    ok( -f "$dist_dir_exe{lc $bn}$ext", "$f$ext");
   } else {
-    ok( -f catfile('..', 'utils', "$f$ext"), "$f$ext" );
+    ok( -f catfile('..', 'utils', "$bn$ext"), "$f$ext" );
   }
 }