diff options
| -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" ); } } |