integrate 5.8-maint: changes #18174 18187 18189-92 18202 18209 18214-5

[p5sagit/p5-mst-13.2.git] / t / op / eval.t

diff --git a/t/op/eval.t b/t/op/eval.t
index 6487b9e..79e219e 100755 (executable)
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..77\n";
+print "1..78\n";
 
 eval 'print "ok 1\n";';
 
@@ -242,6 +242,12 @@ print $@;
     eval q{};
     print length($@) ? "not ok 46\t# \$\@ = '$@'\n" : "ok 46\n";
 }
+# [perl #9728] used to dump core
+{
+   $eval = eval 'sub { eval "sub { %S }" }';
+   $eval->({});
+   print "ok 47\n";
+}
 
 # DAPM Nov-2002. Perl should now capture the full lexical context during
 # evals.