op/taint.t problem on dos/djgpp

	Message-ID: <19980610005404.F162@cdata.tvnet.hu>

p4raw-id: //depot/perl@1106

diff --git a/t/op/taint.t b/t/op/taint.t
index 2b9da86..7f77283 100755 (executable)
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -348,7 +348,7 @@ else {
 
     test 67, eval { open FOO, $foo } eq '', 'open for read';
     test 68, $@ eq '', $@;             # NB: This should be allowed
-    test 69, $! == 2;                  # File not found
+    test 69, $! == 2 || ($Is_Dos && $! == 22); # File not found
 
     test 70, eval { open FOO, "> $foo" } eq '', 'open for write';
     test 71, $@ =~ /^Insecure dependency/, $@;