From: Laszlo Molnar <laszlo.molnar@eth.ericsson.se>
Date: Wed, 10 Jun 1998 00:54:04 +0000 (+0200)
Subject: op/taint.t problem on dos/djgpp
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=87205358247c0921d2edbaeb93914b0a4454c25b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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/, $@;