From: Ilya Zakharevich Date: Sun, 3 Aug 2003 06:21:41 +0000 (-0700) Subject: Shell.t X-Git-Tag: accepted/trunk/20130322.191538~23530 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=670c206d1fe305b38dfbb1e20e5c966dc1f8e9e6;p=platform%2Fupstream%2Fperl.git Shell.t Message-ID: <20030803132141.GA5156@math.berkeley.edu> p4raw-id: //depot/perl@20450 --- diff --git a/lib/Shell.t b/lib/Shell.t index c7c45d3..106cd2a 100644 --- a/lib/Shell.t +++ b/lib/Shell.t @@ -30,7 +30,7 @@ END { -f $tmpfile && (open STDERR, '>&SAVERR' and unlink $tmpfile) } open(SAVERR, ">&STDERR"); open(STDERR, ">$tmpfile"); -xXx(); # Ok someone could have a program called this :( +xXx_not_there(); # Ok someone could have a program called this :( # On os2 the warning is on by default... ok(($^O eq 'os2' xor !(-s $tmpfile)), '$Shell::capture_stderr');