Fix threaded build
authorFather Chrysostomos <sprout@cpan.org>
Fri, 18 Nov 2011 23:55:08 +0000 (15:55 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 18 Nov 2011 23:55:08 +0000 (15:55 -0800)
Commit a7999c0893, you are at fault!

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