projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
New lightweight Carp has a require. If Carp is used in a __DIE__ handler
[p5sagit/p5-mst-13.2.git]
/
t
/
op
/
eval.t
diff --git
a/t/op/eval.t
b/t/op/eval.t
index
dc163e9
..
abcb379
100755
(executable)
--- a/
t/op/eval.t
+++ b/
t/op/eval.t
@@
-1,6
+1,6
@@
#!./perl
-print "1..36\n";
+print "1..37\n";
eval 'print "ok 1\n";';
@@
-171,3
+171,8
@@
sub terminal { eval 'print $r' }
}
$x++;
+# Have we cured panic which occurred with require/eval in die handler ?
+$SIG{__DIE__} = sub { eval {1}; die shift };
+eval { die "ok ".$x++,"\n" };
+print $@;
+