Merge pull request #127 from dveeden/fedora40

Fix building on Fedora 40 with GCC 14.2.1

Author: Tux

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));