diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-26 15:41:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-26 15:41:48 +0000 |
| commit | 943b127a89808d65bbe1eec642a5fa38039659ae (patch) | |
| tree | ba8b7a93d4cc130c0ebb655dd958df3b030f51b2 /ext/POSIX/t | |
| parent | 3f83dd72f21792ca0fcbec90728c3cad57c66994 (diff) | |
| download | perl-943b127a89808d65bbe1eec642a5fa38039659ae.tar.gz | |
Integrate from macperl:
[ 17345]
Mac OS Test updates
[ 17347]
Support hints and OPTIMIZE in MM_MacOS
[ 17348]
Crank down optimization for Mac OS in Digest::MD5
p4raw-link: @17348 on //depot/macperl: 5e6109b944d42c12b5bf2560bc7d5e1e26b50cb5
p4raw-link: @17347 on //depot/macperl: 4fa8a8856377f81f41ceaba369f758c11cc6b898
p4raw-link: @17345 on //depot/macperl: ef506d9df705afe007449cf4101370864d7e1d79
p4raw-id: //depot/perl@17363
p4raw-branched: from //depot/macperl@17362 'branch in'
ext/Digest/MD5/hints/MacOS.pl
p4raw-integrated: from //depot/macperl@17362 'copy in'
ext/POSIX/t/taint.t lib/ExtUtils/MM_MacOS.pm
lib/Test/Harness/t/strap-analyze.t
lib/Test/Harness/t/test-harness.t (@17344..)
Diffstat (limited to 'ext/POSIX/t')
| -rw-r--r-- | ext/POSIX/t/taint.t | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/ext/POSIX/t/taint.t b/ext/POSIX/t/taint.t index fcc52c2d29..b20441f7fb 100644 --- a/ext/POSIX/t/taint.t +++ b/ext/POSIX/t/taint.t @@ -28,13 +28,18 @@ my $testfd; my $TAINT = substr($^X, 0, 0); -eval { mkfifo($TAINT. "TEST", 0) }; +# there is a bug in GUSI that causes problems trying to open +# files and directories ... it is being fixed, this is just +# a stopgap -- pudge +my $file = $^O eq 'MacOS' ? 'TEST-OLD' : 'TEST'; + +eval { mkfifo($TAINT. $file, 0) }; like($@, qr/^Insecure dependency/, 'mkfifo with tainted data'); -eval { $testfd = open($TAINT. "TEST", O_WRONLY, 0) }; +eval { $testfd = open($TAINT. $file, O_WRONLY, 0) }; like($@, qr/^Insecure dependency/, 'open with tainted data'); -eval { $testfd = open("TEST", O_RDONLY, 0) }; +eval { $testfd = open($file, O_RDONLY, 0) }; is($@, "", 'open with untainted data'); read($testfd, $buffer, 2) if $testfd > 2; |