6 require Config; import Config;
7 if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
13 use Test::More tests => 7;
14 use Scalar::Util qw/tainted/;
17 use POSIX qw(fcntl_h open read mkfifo);
27 # The empty tainted value, for tainting strings
29 my $TAINT = substr($^X, 0, 0);
31 eval { mkfifo($TAINT. "TEST", 0) };
32 like($@, qr/^Insecure dependency/, 'mkfifo with tainted data');
34 eval { $testfd = open($TAINT. "TEST", O_WRONLY, 0) };
35 like($@, qr/^Insecure dependency/, 'open with tainted data');
37 eval { $testfd = open("TEST", O_RDONLY, 0) };
38 is($@, "", 'open with untainted data');
40 read($testfd, $buffer, 2) if $testfd > 2;
41 is( $buffer, "#!", ' read' );
42 ok(tainted($buffer), ' scalar tainted');
45 local $TODO = "POSIX::read won't taint an array element";
47 read($testfd, $buffer[1], 2) if $testfd > 2;
49 is( $buffer[1], "./", ' read' );
50 ok(tainted($buffer[1]), ' array element tainted');