projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Make tests succeed on OS/2
[p5sagit/p5-mst-13.2.git]
/
t
/
lib
/
io_taint.t
diff --git
a/t/lib/io_taint.t
b/t/lib/io_taint.t
index
698db45
..
0ef2cfd
100755
(executable)
--- a/
t/lib/io_taint.t
+++ b/
t/lib/io_taint.t
@@
-29,7
+29,7
@@
$x->close;
$x = new IO::File "< ./__taint__$$" || die("Cannot open ./__taint__$$\n");
chop($unsafe = <$x>);
eval { kill 0 * $unsafe };
-print "not " if ($@ !~ /^Insecure/o);
+print "not " if $^O ne 'MSWin32' and ($@ !~ /^Insecure/o);
print "ok 1\n";
$x->close;