summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-10-01 22:13:26 -0700
committerFather Chrysostomos <sprout@cpan.org>2011-10-06 13:01:00 -0700
commit0fe84f7c4203febe7385a57fe43af2ee032318cf (patch)
tree7400788214696d457c6b2455adfefe2b5406883b /gv.c
parentaa1e761e6b2ad2f51373c7d89c32d7770fba38df (diff)
downloadperl-0fe84f7c4203febe7385a57fe43af2ee032318cf.tar.gz
Remove 4 from new gv_autoload4_(sv|pvn?) functions
The 4 was added in commit 54310121b442 (inseparable changes during 5.003/4 developement), presumably the ‘Don't look up &AUTOLOAD in @ISA when calling plain function’ part. Before that, gv_autoload had three arguments, so the 4 indicated the new version (with the method argument). Since these new functions don’t all have four arguments, and since they have a new naming convention, there is not reason for the 4.
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/gv.c b/gv.c
index 77d3ef0b0b..81326d5e6d 100644
--- a/gv.c
+++ b/gv.c
@@ -1079,26 +1079,26 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
}
GV*
-Perl_gv_autoload4_sv(pTHX_ HV *stash, SV* namesv, I32 method, U32 flags)
+Perl_gv_autoload_sv(pTHX_ HV *stash, SV* namesv, I32 method, U32 flags)
{
char *namepv;
STRLEN namelen;
- PERL_ARGS_ASSERT_GV_AUTOLOAD4_SV;
+ PERL_ARGS_ASSERT_GV_AUTOLOAD_SV;
namepv = SvPV(namesv, namelen);
if (SvUTF8(namesv))
flags |= SVf_UTF8;
- return gv_autoload4_pvn(stash, namepv, namelen, method, flags);
+ return gv_autoload_pvn(stash, namepv, namelen, method, flags);
}
GV*
-Perl_gv_autoload4_pv(pTHX_ HV *stash, const char *namepv, I32 method, U32 flags)
+Perl_gv_autoload_pv(pTHX_ HV *stash, const char *namepv, I32 method, U32 flags)
{
- PERL_ARGS_ASSERT_GV_AUTOLOAD4_PV;
- return gv_autoload4_pvn(stash, namepv, strlen(namepv), method, flags);
+ PERL_ARGS_ASSERT_GV_AUTOLOAD_PV;
+ return gv_autoload_pvn(stash, namepv, strlen(namepv), method, flags);
}
GV*
-Perl_gv_autoload4_pvn(pTHX_ HV *stash, const char *name, STRLEN len, I32 method, U32 flags)
+Perl_gv_autoload_pvn(pTHX_ HV *stash, const char *name, STRLEN len, I32 method, U32 flags)
{
dVAR;
GV* gv;
@@ -1109,7 +1109,7 @@ Perl_gv_autoload4_pvn(pTHX_ HV *stash, const char *name, STRLEN len, I32 method,
const char *packname = "";
STRLEN packname_len = 0;
- PERL_ARGS_ASSERT_GV_AUTOLOAD4_PVN;
+ PERL_ARGS_ASSERT_GV_AUTOLOAD_PVN;
if (len == S_autolen && memEQ(name, S_autoload, S_autolen))
return NULL;