Fix SEGV when debugging with foreach() lvalue patch

p5p-msgid: <199702271924.OAA14557@monk.mps.ohio-state.edu>

1 files changed, 3 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 65d7d30e09..8f6bbe9b27 100644
--- a/sv.c
+++ b/sv.c
@@ -2624,6 +2624,9 @@ register SV *sv;
 		sv_upgrade(&ref, SVt_RV);
 		SvRV(&ref) = SvREFCNT_inc(sv);
 		SvROK_on(&ref);
+		SvREFCNT(&ref) = 1;	/* Fake, but otherwise
+					   creating+destructing a ref
+					   leads to disaster. */
 
 		EXTEND(SP, 2);
 		PUSHMARK(SP);