/Compress/ modules are at version 2.021. Remove vestigal MAPs and comments.

[p5sagit/p5-mst-13.2.git] / ext / POSIX / t / taint.t

diff --git a/ext/POSIX/t/taint.t b/ext/POSIX/t/taint.t
index b20441f..3ca0174 100644 (file)
--- a/ext/POSIX/t/taint.t
+++ b/ext/POSIX/t/taint.t
@@ -1,8 +1,6 @@
 #!./perl -Tw
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
     require Config; import Config;
     if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
        print "1..0\n";
@@ -28,10 +26,7 @@ my $testfd;
 
 my $TAINT = substr($^X, 0, 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';
+my $file = 'POSIX.xs';
 
 eval { mkfifo($TAINT. $file, 0) };
 like($@, qr/^Insecure dependency/,              'mkfifo with tainted data');
@@ -43,7 +38,7 @@ eval { $testfd = open($file, O_RDONLY, 0) };
 is($@, "",                                  'open with untainted data');
 
 read($testfd, $buffer, 2) if $testfd > 2;
-is( $buffer, "#!",                               '    read' );
+is( $buffer, "#d",                               '    read' );
 ok(tainted($buffer),                          '    scalar tainted');
 
 TODO: {