diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 1997-11-27 10:46:42 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-27 15:06:36 +0000 |
| commit | 888d0fe0188fdde6c44d0523c70df0dfcccc5bea (patch) | |
| tree | 4c6958ea3defdf38a13ac61ea0ead8bb7e18945d | |
| parent | 2e94dd0cebaa1537cb1734bec725aeb0224c6a5d (diff) | |
| download | perl-888d0fe0188fdde6c44d0523c70df0dfcccc5bea.tar.gz | |
Fix t/lib/safe2.t for SunOS 4.1.3:
Subject: Re: ANNOUNCE: perl 5.004_55 is available
p4raw-id: //depot/perl@321
| -rwxr-xr-x | t/lib/safe2.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/lib/safe2.t b/t/lib/safe2.t index a9d24051ea..c9e38808b3 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++; |