From: Paul Marquess <paul.marquess@btinternet.com>
Date: Thu, 27 Nov 1997 10:46:42 +0000 (+0000)
Subject: Fix t/lib/safe2.t for SunOS 4.1.3:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=888d0fe0188fdde6c44d0523c70df0dfcccc5bea;p=p5sagit%2Fp5-mst-13.2.git

Fix t/lib/safe2.t for SunOS 4.1.3:
	Subject: Re: ANNOUNCE: perl 5.004_55 is available

p4raw-id: //depot/perl@321
---

diff --git a/t/lib/safe2.t b/t/lib/safe2.t
index a9d2405..c9e3880 100755
--- a/t/lib/safe2.t
+++ b/t/lib/safe2.t
@@ -124,6 +124,7 @@ my $t = 30;
 $cpt->rdo('/non/existant/file.name');
 print +(($! =~ /No such file/ || $! =~ /file specification syntax error/) ||
       $! =~ /A file or directory in the path name does not exist/ ||
+      $! =~ /Invalid argument/ ||
       $! =~ /Device not configured/ ?
       "ok $t\n" : "not ok $t # $!\n"); $t++;
 print 1 ? "ok $t\n" : "not ok $t\n#$@/$!\n"; $t++;