/usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/t/lib/sample-tests/taint

Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/t/lib/sample-tests/taint


#!/usr/bin/perl -Tw

use lib qw(t/lib);
use Test::More tests => 1;

eval { kill 0, $^X };
like( $@, '/^Insecure dependency/',   '-T honored' );