X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=51106178eee6839b4314ff2ec2fa679e16c9edcc;hb=c21d1a0f049833fd2ca59ef598337f86f2cd08f4;hp=40a0e8d2bbca08e80030c64a070cf42b45de9637;hpb=bfcb351493b9793586f4b514100d4f902a85f4fd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/gv.c b/gv.c
index 40a0e8d..5110617 100644
--- 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 == ':')