From 3095d9770ef6ed78f84315fc655ef2070c7b9c04 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 5 Nov 1998 04:40:44 +0000
Subject: another POPSTACK victim

p4raw-id: //depot/perl@2201
---
 sv.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'sv.c')

diff --git a/sv.c b/sv.c
index 9dfa4f62a1..bd421b6a15 100644
--- a/sv.c
+++ b/sv.c
@@ -2884,6 +2884,7 @@ sv_clear(register SV *sv)
 				 G_DISCARD|G_EVAL|G_KEEPERR);
 		    SvREFCNT(sv)--;
 		    POPSTACK;
+		    SPAGAIN;
 		    LEAVE;
 		}
 	    } while (SvOBJECT(sv) && SvSTASH(sv) != stash);
-- 
cgit v1.2.1