diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-10-01 22:13:26 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:00 -0700 |
commit | 0fe84f7c4203febe7385a57fe43af2ee032318cf (patch) | |
tree | 7400788214696d457c6b2455adfefe2b5406883b /gv.c | |
parent | aa1e761e6b2ad2f51373c7d89c32d7770fba38df (diff) | |
download | perl-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.c | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -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; |