Add the test case from perl #9728.

p4raw-id: //depot/maint-5.8/perl@18209

diff --git a/t/op/eval.t b/t/op/eval.t
index 5897b2b..596f17b 100755 (executable)
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..46\n";
+print "1..47\n";
 
 eval 'print "ok 1\n";';
 
@@ -241,3 +241,10 @@ 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";
+}