X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e58e581d72ea61ad3f4d1def4e51acef391679fc..0182fb80112dc1109c74c011db7c7ef7267a733e:/sv.c

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