Test case for 'eval "a.b.c.d.e.f;sub"' save stack imbalance

bug found by Ilmari Karonen; the bug fixed by Sarathy's lexical
leakage patch.

p4raw-id: //depot/perl@10438

diff --git a/t/op/misc.t b/t/op/misc.t
index e5af756..8e67b61 100755 (executable)
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -724,3 +724,6 @@ sub DESTROY {
 }
 EXPECT
 Bar=ARRAY(0x...)
+########
+eval "a.b.c.d.e.f;sub"
+EXPECT