xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/taint (revision 0:68f95e015346)
1*0Sstevel@tonic-gate#!/usr/bin/perl -Tw
2*0Sstevel@tonic-gate
3*0Sstevel@tonic-gateuse lib qw(t/lib);
4*0Sstevel@tonic-gateuse Test::More tests => 1;
5*0Sstevel@tonic-gate
6*0Sstevel@tonic-gateeval { kill 0, $^X };
7*0Sstevel@tonic-gatelike( $@, '/^Insecure dependency/',   '-T honored' );
8