diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-13 16:50:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-01-13 16:50:17 +0000 |
| commit | 61ae2fbf8676dafa05a9a9a710fde421f30a2071 (patch) | |
| tree | 4f497a4eee07a49f48be8badf49ad54f068f11f8 /t/op/taint.t | |
| parent | b8f0c030659550e4d527ee8f11cd2f012f1bd1b0 (diff) | |
| download | perl-61ae2fbf8676dafa05a9a9a710fde421f30a2071.tar.gz | |
Atari MiNT port by Guido Flohr <gufl0000@stud.uni-sb.de>
(the diffs were based on 5.004_02). Tested by Guido
and Frank Naumann <fnaumann@prinz-atm.CS.Uni-Magdeburg.De>.
p4raw-id: //depot/cfgperl@2594
Diffstat (limited to 't/op/taint.t')
| -rwxr-xr-x | t/op/taint.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index d2cae8e70a..379093f587 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -366,7 +366,10 @@ else { test 72, $@ eq '', $@; # NB: This should be allowed # Try first new style but allow also old style. - test 73, $!{ENOENT} || $! == 2 || ($Is_Dos && $! == 22); # File not found + test 73, $!{ENOENT} || + $! == 2 || # File not found + ($Is_Dos && $! == 22) || + ($^O eq 'mint' && $! == 33); test 74, eval { open FOO, "> $foo" } eq '', 'open for write'; test 75, $@ =~ /^Insecure dependency/, $@; |