diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-12 05:53:40 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-12 05:53:40 +0000 |
commit | 883d36a60f1dbc0dec153bce822eebaa5172be5d (patch) | |
tree | 9d44d5790271ac8cbfebc5b593cc817778bb7160 /t | |
parent | 4b5b211868f30398434fa5a1a79573d04770ccf2 (diff) | |
download | perl-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-x | t/lib/safe2.t | 2 | ||||
-rwxr-xr-x | t/op/groups.t | 2 |
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: |