Compilation fix

p4raw-id: //depot/perl@24527

diff --git a/gv.c b/gv.c
index 40a0e8d..f549242 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -721,7 +721,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
                    stash = GvHV(gv) = newHV();
 
                if (!HvNAME_get(stash))
-                   Perl_hv_name_set(aTHX, stash, nambeg, namend - nambeg, 0);
+                   Perl_hv_name_set(aTHX stash, nambeg, namend - nambeg, 0);
            }
 
            if (*namend == ':')