1 files changed, 1 insertions, 1 deletions
diff --git a/util.c b/util.c
index 866565a57e..1e3eea1193 100644
--- 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) 
 		  )
 		)
 	)) {