In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b590cc3cfe552a04543f662c8c0a80959d37562e?hp=04e82a462b85b3d6265b04aa07a405316616dc66>
- Log ----------------------------------------------------------------- commit b590cc3cfe552a04543f662c8c0a80959d37562e Author: Craig A. Berry <[email protected]> Date: Sun Oct 11 17:45:02 2009 -0500 No longer need to skip t/comp/opsubs.t #22 on VMS. And it's a good thing since the skip infrastructure was pulled out from under us with 6b077bebea000af2a5477d50d7604bab33ee75c2. The Win32 TODO probably still doesn't work and will need to be implemented locally without the require of test.pl. ----------------------------------------------------------------------- Summary of changes: t/comp/opsubs.t | 5 +---- 1 files changed, 1 insertions(+), 4 deletions(-) diff --git a/t/comp/opsubs.t b/t/comp/opsubs.t index 05610c9..f9822e9 100644 --- a/t/comp/opsubs.t +++ b/t/comp/opsubs.t @@ -124,12 +124,9 @@ is( &qw('amper'), "qw-amper", "&qw() is func" ); can_ok( 'main', "qx" ); eval "qx('unqualified'". ($^O eq 'MSWin32' ? " 2>&1)" : ")"); -SKIP: { - skip("external command not portable on VMS", 1) if $^O eq 'VMS'; - TODO: { +TODO: { local $::TODO = $^O eq 'MSWin32' ? "Tainting of PATH not working of Windows" : $::TODO; like( $@, qr/^Insecure/, "qx('unqualified') doesn't work" ); - } } is( main::qx('main'), "qx-main", "main::qx() is func" ); is( &qx('amper'), "qx-amper", "&qx() is func" ); -- Perl5 Master Repository
