#!./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";
my $TAINT = substr($^X, 0, 0);
-my $file = 'TEST';
+my $file = 'POSIX.xs';
eval { mkfifo($TAINT. $file, 0) };
like($@, qr/^Insecure dependency/, 'mkfifo with tainted data');
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: {