sv_clear: with zero SvREFCNT, call sv_free2, not sv_free

Towards the bottom of `Perl_sv_clear`, there is a region described as
being `* unrolled SvREFCNT_dec and sv_free2 follows: */`. This was
introduced in 5239d5c
but the definitions of `Perl_sv_free`, `Perl_sv_free2`, and `SvREFCNT_dec`
were updated in 75a9bf9
and this region of code didn't get updated.

The unrolling remains valid, but the call to `sv_free(sv)` ultimately boils
down to a call to `sv_free2`, so this commit just goes there directly.

Author: richardleach

sv.c

@@ -7120,12 +7120,18 @@ Perl_sv_clear(pTHX_ SV *const orig_sv)
                 }
             }
 
-            /* unrolled SvREFCNT_dec and sv_free2 follows: */
+            /* Do the equivalent of SvREFCNT_dec(sv), except:
+             - for the case of RC==1, inline the actions normally taken
+               by sv_free2() prior it calling sv_clear(), and handle the
+               sv_clear() actions ourselves (without needing to
+               recurse).
+             - For the exceptional case of RC==0, do a traditional
+               recursive free. */
 
             if (!sv)
                 continue;
             if (!SvREFCNT(sv)) {
-                sv_free(sv);
+                Perl_sv_free2(aTHX_ sv, 0);
                 continue;
             }
             if (--(SvREFCNT(sv)))