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 e5af75601495adc601add2eb96dfb1f75fe182b9..8e67b6144b677a47997285b51f0f1d0aa48c312e 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