git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/t/sample-tests/taint

   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' );