This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence system warning during tests (only on win32 for now)
[perl5.git] / t / comp / opsubs.t
index 0bbe099..3faca21 100644 (file)
@@ -59,7 +59,8 @@ is( &qw('amper'), "qw-amper", "&qw() is func" );
 
 # qx operator
 can_ok( 'main', "qx" );
-eval "qx('unqualified')";
+eval "qx('unqualified'".
+     ($^O eq 'MSWin32' ? " 2>&1)" : ")");
 SKIP: {
     skip("external command not portable on VMS", 1) if $^O eq 'VMS';
     TODO: {