diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-07-24 10:25:20 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2010-07-24 13:46:02 -0500 |
| commit | 01604df22e5410212145819f949c3f6ca82726d0 (patch) | |
| tree | 12749cdd236ced2f1851937624e18f96b240b9e2 /t | |
| parent | 07057678e35049e74ccde194a51a0052f442385c (diff) | |
| download | perl-01604df22e5410212145819f949c3f6ca82726d0.tar.gz | |
Port dual-life.t to VMS.
The utils have a .com extension and filename case may not be
preserved.
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/dual-life.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/porting/dual-life.t b/t/porting/dual-life.t index 6165992393..9fb780278d 100644 --- a/t/porting/dual-life.t +++ b/t/porting/dual-life.t @@ -37,7 +37,10 @@ find( ); for my $f ( @programs ) { - next if $f ~~ @exceptions; - ok( -f catfile('..', 'utils', basename($f)), "$f" ); + $f =~ s/\.\z// if $^O eq 'VMS'; + next if qr/(?i:$f)/ ~~ @exceptions; + $f = basename($f); + $f .= '.com' if $^O eq 'VMS'; + ok( -f catfile('..', 'utils', $f), "$f" ); } |