X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FPOSIX%2Ft%2Ftaint.t;h=b20441f7fbc01ef0a625712585b63fdf2f9b9d82;hb=c473feecc28308679db0cf6f8fc1f902de2584d6;hp=fcc52c2d29ddbb0b94ce25836bfa57737da0ad3f;hpb=640876195dd7102230f531813a79882745bbbd46;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/POSIX/t/taint.t b/ext/POSIX/t/taint.t
index fcc52c2..b20441f 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;