From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 21 May 2005 16:01:42 +0000 (+0000)
Subject: Really fix change 24527
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e3207c2a1cd2d1644ac48e4d8ddd6742391e423;p=p5sagit%2Fp5-mst-13.2.git

Really fix change 24527

p4raw-id: //depot/perl@24530
---

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