From: Yves Orton <demerphq@gmail.com>
Date: Sat, 15 Jul 2006 18:21:15 +0000 (+0200)
Subject: Silence system warning during tests (only on win32 for now)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b7c34493369bdd41a81cd335c43a2c5275ebf4f7;p=p5sagit%2Fp5-mst-13.2.git

Silence system warning during tests (only on win32 for now)
Message-ID: <9b18b3110607150921p33be8e87wd51b2fd317a81587@mail.gmail.com>

p4raw-id: //depot/perl@28594
---

diff --git a/t/comp/opsubs.t b/t/comp/opsubs.t
index 0bbe099..3faca21 100644
--- a/t/comp/opsubs.t
+++ b/t/comp/opsubs.t
@@ -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: {