diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 18:28:13 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-08 18:28:13 +0000 |
commit | 91e74348ab129f737e0d9da75481cd4eb7414ba4 (patch) | |
tree | b700d3ed7ddb36fb2d15c007f31f5bd0346d8418 /perlapi.c | |
parent | 1426bbf4b7d39af0f80ec0afcb4869d2bc3f0a90 (diff) | |
download | perl-91e74348ab129f737e0d9da75481cd4eb7414ba4.tar.gz |
Do away with array context, from Daniel Chetlin <daniel@chetlin.com>
(either perlbug or p5p ate the original), plus regen
perlapi and perltoc.
p4raw-id: //depot/perl@6553
Diffstat (limited to 'perlapi.c')
-rw-r--r-- | perlapi.c | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -829,6 +829,13 @@ Perl_gv_efullname3(pTHXo_ SV* sv, GV* gv, const char* prefix) ((CPerlObj*)pPerl)->Perl_gv_efullname3(sv, gv, prefix); } +#undef Perl_gv_efullname4 +void +Perl_gv_efullname4(pTHXo_ SV* sv, GV* gv, const char* prefix, bool keepmain) +{ + ((CPerlObj*)pPerl)->Perl_gv_efullname4(sv, gv, prefix, keepmain); +} + #undef Perl_gv_fetchfile GV* Perl_gv_fetchfile(pTHXo_ const char* name) @@ -878,6 +885,13 @@ Perl_gv_fullname3(pTHXo_ SV* sv, GV* gv, const char* prefix) ((CPerlObj*)pPerl)->Perl_gv_fullname3(sv, gv, prefix); } +#undef Perl_gv_fullname4 +void +Perl_gv_fullname4(pTHXo_ SV* sv, GV* gv, const char* prefix, bool keepmain) +{ + ((CPerlObj*)pPerl)->Perl_gv_fullname4(sv, gv, prefix, keepmain); +} + #undef Perl_gv_init void Perl_gv_init(pTHXo_ GV* gv, HV* stash, const char* name, STRLEN len, int multi) |