[perl5.git] / 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' );
Commit	Line	Data
13287dd5 MS	1	#!/usr/bin/perl -Tw
	2
	3	use lib qw(t/lib);
	4	use Test::More tests => 1;
	5
	6	eval { kill 0, $^X };
	7	like( $@, '/^Insecure dependency/', '-T honored' );