use strict;
use warnings;
-use 5.008000; # for ${^TAINT}
+use Test::More tests => 2;
use Module::Metadata;
-use Test::More;
-use Test::Fatal;
+use Carp 'croak';
-ok(${^TAINT}, 'taint flag is set');
+# stolen liberally from Class-Tiny/t/lib/TestUtils.pm - thanks xdg!
+sub exception(&) {
+ my $code = shift;
+ my $success = eval { $code->(); 1 };
+ my $err = $@;
+ return undef if $success; # original returned ''
+ croak "Execution died, but the error was lost" unless $@;
+ return $@;
+}
+
+my $taint_on = ! eval { no warnings; join('',values %ENV), kill 0; 1; };
+ok($taint_on, 'taint flag is set');
# without the fix, we get:
# Insecure dependency in eval while running with -T switch at lib/Module/Metadata.pm line 668, <GEN0> line 15.
'no exception',
);
-done_testing;