1#!/usr/bin/perl -tw 2 3use lib qw(t/lib); 4use Test::More tests => 1; 5 6my $warnings = ''; 7{ 8 local $SIG{__WARN__} = sub { $warnings .= join '', @_ }; 9 kill 0, $^X; 10} 11like( $warnings, '/^Insecure dependency/', '-t honored' ); 12