Change 23311 by nicholas@no-spam on 2004/09/10 09:09:38
Integrate:
[ 23225]
Mark a test that relies on tainting behavior as TODO on Windows.
Should have been part of integration 23310, but for
http://www.google.com/search?q=%66%75%63%6Bing+perforce
Affected files ...
... //depot/maint-5.8/perl/t/comp/opsubs.t#2 integrate
Differences ...
==== //depot/maint-5.8/perl/t/comp/opsubs.t#2 (text) ====
Index: perl/t/comp/opsubs.t
--- perl/t/comp/opsubs.t#1~23310~ Fri Sep 10 01:57:45 2004
+++ perl/t/comp/opsubs.t Fri Sep 10 02:09:38 2004
@@no-spam -60,7 +60,10 @@no-spam
# qx operator
can_ok( 'main', "qx" );
eval "qx('unqualified')";
-like( $@no-spam qr/^Insecure/, "qx('unqualified') doesn't work" );
+TODO: {
+ local $TODO = $^O eq 'MSWin32' ? "Tainting of PATH not working of Windows" : $TODO;
+ like( $@no-spam 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" );
End of Patch.