In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/01604df22e5410212145819f949c3f6ca82726d0?hp=07057678e35049e74ccde194a51a0052f442385c>
- Log ----------------------------------------------------------------- commit 01604df22e5410212145819f949c3f6ca82726d0 Author: Craig A. Berry <[email protected]> Date: Sat Jul 24 10:25:20 2010 -0500 Port dual-life.t to VMS. The utils have a .com extension and filename case may not be preserved. ----------------------------------------------------------------------- Summary of changes: 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 6165992..9fb7802 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" ); } -- Perl5 Master Repository
