Fix threaded build

Commit a7999c0893, you are at fault!

diff --git a/util.c b/util.c
index 866565a..1e3eea1 100644 (file)
--- a/util.c
+++ b/util.c
@@ -6562,7 +6562,7 @@ Perl_get_db_sub(pTHX_ SV **svp, CV *cv)
                 !( (SvTYPE(*svp) == SVt_PVGV)
                    && (GvCV((const GV *)*svp) == cv)
                    /* Use GV from the stack as a fallback. */
-                   && S_gv_has_usable_name(gv = (GV *)*svp) 
+                   && S_gv_has_usable_name(aTHX_ gv = (GV *)*svp) 
                  )
                )
        )) {