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 /ext/XS-APItest/APItest.xs | |
| 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 'ext/XS-APItest/APItest.xs')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index d0fa057f81..618bd32dc8 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -1953,7 +1953,7 @@ gv_fetchmethod_flags_type(stash, methname, type, flags) XPUSHs( gv ? (SV*)gv : &PL_sv_undef); void -gv_autoload4_type(stash, methname, type, method, flags) +gv_autoload_type(stash, methname, type, method, flags) HV* stash SV* methname int type @@ -1969,13 +1969,13 @@ gv_autoload4_type(stash, methname, type, method, flags) gv = gv_autoload4(stash, name, len, method); break; case 1: - gv = gv_autoload4_sv(stash, methname, method, flags); + gv = gv_autoload_sv(stash, methname, method, flags); break; case 2: - gv = gv_autoload4_pv(stash, name, method, flags | SvUTF8(methname)); + gv = gv_autoload_pv(stash, name, method, flags | SvUTF8(methname)); break; case 3: - gv = gv_autoload4_pvn(stash, name, len, method, flags | SvUTF8(methname)); + gv = gv_autoload_pvn(stash, name, len, method, flags | SvUTF8(methname)); break; } XPUSHs( gv ? (SV*)gv : &PL_sv_undef); |