diff options
Diffstat (limited to 't')
-rw-r--r-- | t/op/require_errors.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/require_errors.t b/t/op/require_errors.t index f80aebd422..1e86fbb719 100644 --- a/t/op/require_errors.t +++ b/t/op/require_errors.t @@ -9,7 +9,7 @@ BEGIN { use strict; use warnings; -plan(tests => 57); +plan(tests => 58); my $nonfile = tempfile(); @@ -283,3 +283,10 @@ like $@, qr/^Can't locate \Q$nonsearch\E at/, "check the second attempt also fails"); like $@, qr/Attempt to reload/, "check we failed for the right reason"; } + +{ + fresh_perl_like( + 'unshift @INC, sub { sub { 0 } }; require "asdasd";', + qr/asdasd did not return a true value/, + { }, '@INC hook blocks do not cause segfault'); +} |