summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/op/require_errors.t9
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');
+}