make sv_clear() non-recursive on RVs

The previous two commits made it non-recursive on AVs. With that
machinery in place, it's now trivial to extend it to RVs too.
This means that now any depth nesting of AVs and RVs will be freed
in a single call to sv_clear().

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index da84e4f180..1c8d6dd979 100644
--- a/sv.c
+++ b/sv.c
@@ -6021,7 +6021,7 @@ Perl_sv_clear(pTHX_ SV *const orig_sv)
 		    if (SvWEAKREF(sv))
 			sv_del_backref(target, sv);
 		    else
-			SvREFCNT_dec(target);
+			next_sv = target;
 		}
 	    }
 #ifdef PERL_OLD_COPY_ON_WRITE