From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 11 Oct 2009 22:45:02 +0000 (-0500)
Subject: No longer need to skip t/comp/opsubs.t #22 on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b590cc3cfe552a04543f662c8c0a80959d37562e;p=p5sagit%2Fp5-mst-13.2.git

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.
---

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" );