diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-10-26 18:12:23 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-26 20:16:58 -0700 |
| commit | abace7e53f3b3d7bcaf0e795af8ab8b28f9e29a5 (patch) | |
| tree | 92d43546a8122c5a6f09c452ec47024d243d2678 | |
| parent | c1d5f9b862da2ad196fe27b3f2c883b5ea3bdf48 (diff) | |
| download | perl-abace7e53f3b3d7bcaf0e795af8ab8b28f9e29a5.tar.gz | |
Make dual-life.t emit full paths
When it fails, this makes it easier to see why.
| -rw-r--r-- | t/porting/dual-life.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/porting/dual-life.t b/t/porting/dual-life.t index 14d930ca4b..b6f66942db 100644 --- a/t/porting/dual-life.t +++ b/t/porting/dual-life.t @@ -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" ); } } |