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);
33 eval { mkfifo($TAINT. $file, 0) };
34 like($@, qr/^Insecure dependency/, 'mkfifo with tainted data');
36 eval { $testfd = open($TAINT. $file, O_WRONLY, 0) };
37 like($@, qr/^Insecure dependency/, 'open with tainted data');
39 eval { $testfd = open($file, O_RDONLY, 0) };
40 is($@, "", 'open with untainted data');
42 read($testfd, $buffer, 2) if $testfd > 2;
43 is( $buffer, "#!", ' read' );
44 ok(tainted($buffer), ' scalar tainted');
47 local $TODO = "POSIX::read won't taint an array element";
49 read($testfd, $buffer[1], 2) if $testfd > 2;
51 is( $buffer[1], "./", ' read' );
52 ok(tainted($buffer[1]), ' array element tainted');