diff --git a/lib/Sipwise/Base.pm b/lib/Sipwise/Base.pm index aba34db..dab47e3 100644 --- a/lib/Sipwise/Base.pm +++ b/lib/Sipwise/Base.pm @@ -9,7 +9,7 @@ sub import { my $caller = caller; use_module('strictures')->import(1); - use_module('perl5i::2')->import(-skip => [qw(Signatures Try::Tiny)]); + use_module('perl5i::2')->import(-skip => [qw(Signatures Try::Tiny autodie)]); eval <<""; package $caller; diff --git a/t/exec.t b/t/exec.t new file mode 100644 index 0000000..79f7e9b --- /dev/null +++ b/t/exec.t @@ -0,0 +1,11 @@ +use Sipwise::Base; +use Test::More import => [qw(done_testing ok)]; + +eval { + child { + exec $^X, '-e1'; + }; +}; +ok !$@; + +done_testing;