Commit c477e942ef for perl

commit c477e942ef7fc5faf0cf216c6807a4db1d78beee
Author: Tony Cook <tony@develop-help.com>
Date:   Thu Oct 29 13:06:21 2026 +1100

    sv_isa_sv: perl is c99 now, act like it

diff --git a/universal.c b/universal.c
index 9ea3f024b1..211c5eacb4 100644
--- a/universal.c
+++ b/universal.c
@@ -218,13 +218,11 @@ Perl_sv_isa_sv(pTHX_ SV *sv, SV *namesv)
 {
     PERL_ARGS_ASSERT_SV_ISA_SV;

-    GV *isagv;
-
     SV *rv;
     if(!SvROK(sv) || !SvOBJECT((rv = SvRV(sv))))
         return FALSE;

-    isagv = gv_fetchmeth_pvn(SvSTASH(rv), "isa", 3, -1, 0);
+    GV *isagv = gv_fetchmeth_pvn(SvSTASH(rv), "isa", 3, -1, 0);
     if (LIKELY(isagv)) {
         CV *isacv = isGV(isagv) ? GvCV(isagv) : (CV *)isagv;

@@ -232,8 +230,6 @@ Perl_sv_isa_sv(pTHX_ SV *sv, SV *namesv)
             goto default_isa;

         dSP;
-        SV *retsv;
-        bool ret;

         ENTER;
         SAVETMPS;
@@ -247,8 +243,8 @@ Perl_sv_isa_sv(pTHX_ SV *sv, SV *namesv)
         call_sv((SV *)isacv, G_SCALAR);

         SPAGAIN;
-        retsv = POPs;
-        ret = SvTRUE(retsv);
+        SV *retsv = POPs;
+        bool ret = SvTRUE(retsv);
         PUTBACK;

         FREETMPS;