diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-10-29 11:14:40 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-10-29 11:14:40 +0000 |
commit | 2674aeec9d4106f3928d3c8b88be7bc9e6f8eff1 (patch) | |
tree | b3b535c1bacf95848dd392a96c00efe7f3ddc044 /gv.c | |
parent | e27afef8dac321d729b447b4b30a0ca796905454 (diff) | |
download | perl-2674aeec9d4106f3928d3c8b88be7bc9e6f8eff1.tar.gz |
gv_fullname3 and gv_efullname3 are definately mathoms. They even say so.
p4raw-id: //depot/perl@25871
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -1183,24 +1183,12 @@ Perl_gv_fullname4(pTHX_ SV *sv, const GV *gv, const char *prefix, bool keepmain) } void -Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix) -{ - gv_fullname4(sv, gv, prefix, TRUE); -} - -void Perl_gv_efullname4(pTHX_ SV *sv, const GV *gv, const char *prefix, bool keepmain) { const GV * const egv = GvEGV(gv); gv_fullname4(sv, egv ? egv : gv, prefix, keepmain); } -void -Perl_gv_efullname3(pTHX_ SV *sv, const GV *gv, const char *prefix) -{ - gv_efullname4(sv, gv, prefix, TRUE); -} - IO * Perl_newIO(pTHX) { |