From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 19 Sep 2005 15:59:44 +0000 (+0000)
Subject: All Perl_hv_name_set()s need to be plain hv_name_set if they are to
X-Git-Tag: accepted/trunk/20130322.191538~19857
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ffd4ff43bd2a65a31e5f3808320b98b9851ba91e;p=platform%2Fupstream%2Fperl.git

All Perl_hv_name_set()s need to be plain hv_name_set if they are to
work with a macro version.

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

diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h
index 99ffd7f..b6bb12d 100644
--- a/ext/ByteLoader/bytecode.h
+++ b/ext/ByteLoader/bytecode.h
@@ -347,7 +347,7 @@ typedef char *pvindex;
 	mg_set(*hv_store(GvHV(gv_fetchpv("SIG", TRUE, SVt_PVHV)),	\
 		name, strlen(name), cv, 0))
 
-#define BSET_xhv_name(hv, name)	Perl_hv_name_set(aTHX_ (HV*)hv, name, strlen(name), 0)
+#define BSET_xhv_name(hv, name)	hv_name_set((HV*)hv, name, strlen(name), 0)
 
 /* NOTE: the bytecode header only sanity-checks the bytecode. If a script cares about
  * what version of Perl it's being called under, it should do a 'use 5.006_001' or