X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FShell.t;h=106cd2a51d6098d877a742c472ed724099137736;hb=0121e50edd9fa9c4824400c5f42426cf18c6e53b;hp=c7c45d3f2c27673e173e0738ab2d6ba4872bbe39;hpb=51947a20dc2d93fe0888ee6d69de8ae4aca4aef4;p=p5sagit%2Fp5-mst-13.2.git 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');