Merge pull request #127 from dveeden/fedora40

Fix building on Fedora 40 with GCC 14.2.1
perl5-dbi · Aug 26, 2024 · cda382e · cda382e
2 parents 16a64d0 + d6e2bf1
commit cda382e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/DBI.xs b/DBI.xs
@@ -1106,7 +1106,7 @@ dbih_inner(pTHX_ SV *orv, const char *what)
     if (!SvMAGICAL(ohv)) {
         if (!what)
             return NULL;
-        if (!hv_fetch(ohv,"_NO_DESTRUCT_WARN",17,0))
+        if (!hv_fetch((HV*)ohv,"_NO_DESTRUCT_WARN",17,0))
 	    sv_dump(orv);
         croak("%s handle %s is not a DBI handle (has no magic)",
                 what, neatsvpv(orv,0));