From: Dave Mitchell <davem@fdisolutions.com>
Date: Wed, 25 Jun 2008 19:49:38 +0000 (+0000)
Subject: qx($nosuchfile) isn't portable (Windows whines on STDERR)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a3ed38f29b0cc1154e71db6c6dc72ea84c7f4cce;p=p5sagit%2Fp5-mst-13.2.git

qx($nosuchfile) isn't portable (Windows whines on STDERR)
so skip these uninit var tests for now

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

diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit
index ba97f25..89a987b 100644
--- a/t/lib/warnings/9uninit
+++ b/t/lib/warnings/9uninit
@@ -1419,8 +1419,8 @@ use warnings 'uninitialized';
 my $nofile = '/no/such/file';
 my $nocmd  = '/no/such/command';
 my $v;
-$v = 1 + `$nocmd`;
-$v = 1 + qx($nocmd);
+# *** `` not tested: Windows produces and error on STDERR
+# *** ditto qx()
 my $f = "";
 $v = 1 + open($f, $nofile);
 # *** pipe() not tested
@@ -1502,8 +1502,6 @@ $v = 1 + sysopen($f, $nofile, 0);
 { my $x = -1; $v = 1 + sysseek(STDIN, $x, 0); }
 
 EXPECT
-Use of uninitialized value in addition (+) at - line 8.
-Use of uninitialized value in addition (+) at - line 9.
 Use of uninitialized value in addition (+) at - line 11.
 Use of uninitialized value in addition (+) at - line 13.
 Use of uninitialized value in addition (+) at - line 14.