Integrate from mainperl.

p4raw-id: //depot/cfgperl@2202

1 files changed, 1 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 2883518cc4..e10cfe203d 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);