--- Test-Harness/t/sample-tests/taint +++ Test-Harness/t/sample-tests/taint @@ -3,5 +3,5 @@ use lib qw(t/lib); use Test::More tests => 1; -eval { kill 0, $^X }; +eval { `$^X -e1` }; like( $@, '/^Insecure dependency/', '-T honored' ); --- Test-Harness/t/sample-tests/taint_warn +++ Test-Harness/t/sample-tests/taint_warn @@ -6,6 +6,6 @@ use Test::More tests => 1; my $warnings = ''; { local $SIG{__WARN__} = sub { $warnings .= join '', @_ }; - kill 0, $^X; + `$^X -e1`; } like( $warnings, '/^Insecure dependency/', '-t honored' );