From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 4 Jun 2001 17:10:16 +0000 (+0000)
Subject: Test case for 'eval "a.b.c.d.e.f;sub"' save stack imbalance
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1f96ff2ae0c0d784517adb411c2c4f6ea8a0a8da;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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