summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-10-12 05:53:40 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-10-12 05:53:40 +0000
commit883d36a60f1dbc0dec153bce822eebaa5172be5d (patch)
tree9d44d5790271ac8cbfebc5b593cc817778bb7160 /t
parent4b5b211868f30398434fa5a1a79573d04770ccf2 (diff)
downloadperl-883d36a60f1dbc0dec153bce822eebaa5172be5d.tar.gz
apply parts of LynxOS patches from Alan Johnson
<johnson@alonn.gemse.fr> p4raw-id: //depot/perl@4353
Diffstat (limited to 't')
-rwxr-xr-xt/lib/safe2.t2
-rwxr-xr-xt/op/groups.t2
2 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/safe2.t b/t/lib/safe2.t
index 572876c5ca..2c1c80c604 100755
--- a/t/lib/safe2.t
+++ b/t/lib/safe2.t
@@ -124,7 +124,7 @@ print $@ =~ /foo bar/ ? "ok 29\n" : "not ok 29\n";
my $t = 30;
$cpt->rdo('/non/existant/file.name');
# The regexp is getting rather baroque.
-print $! =~ /No such file|file specification syntax error|A file or directory in the path name does not exist|Invalid argument|Device not configured|file not found/i ? "ok $t\n" : "not ok $t # $!\n"; $t++;
+print $! =~ /No such file|file specification syntax error|A file or directory in the path name does not exist|Invalid argument|Device not configured|file not found|File or directory doesn't exist/i ? "ok $t\n" : "not ok $t # $!\n"; $t++;
# test #31 is gone.
print 1 ? "ok $t\n" : "not ok $t\n#$@/$!\n"; $t++;
diff --git a/t/op/groups.t b/t/op/groups.t
index a8f9fe816c..4b655c8e9c 100755
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -10,7 +10,7 @@ sub quit {
exit 0;
}
-quit() if $^O eq 'MSWin32';
+quit() if $^O eq 'MSWin32' or $^O =~ /lynxos/i;
# We have to find a command that prints all (effective
# and real) group names (not ids). The known commands are: