#!./perl -T
BEGIN {
chdir 't' if -d 't';
}
}
use Config;
BEGIN {
if(-d "lib" && -f "TEST") {
print "1..0\n";
exit 0;
}
}
}
print "1..3\n";
print $x "$$\n";
$x->close;
eval { kill 0 * $unsafe };
print "ok 1\n";
$x->close;
# We could have just done a seek on $x, but technically we haven't tested
# seek yet...
$x->untaint;
print "not " if ($?);
print "ok 2\n"; # Calling the method worked
eval { kill 0 * $unsafe };
print "ok 3\n"; # No Insecure message from using the data
$x->close;
exit 0;