diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-10-06 23:58:13 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-10-06 23:58:13 +0000 |
| commit | f6aff53ad72449dfefc5f6d9d303886bbb4ae545 (patch) | |
| tree | cd85b258408b83f3ec2e3a02c989d3f58f4a76af /gv.c | |
| parent | 85581909df34d9ffca6c85cafeb2595c4cb89ffb (diff) | |
| download | perl-f6aff53ad72449dfefc5f6d9d303886bbb4ae545.tar.gz | |
perl 5.003_06: dump.c embed.h gv.c run.c
Restore the 5.003 gv_fullname() and gv_efullname() functions.
Provide new 3-arg forms gv_fullname3() and gv_efullname3().
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 24 |
1 files changed, 21 insertions, 3 deletions
@@ -687,7 +687,7 @@ I32 sv_type; } void -gv_fullname(sv, gv, prefix) +gv_fullname3(sv, gv, prefix) SV *sv; GV *gv; char *prefix; @@ -704,7 +704,7 @@ char *prefix; } void -gv_efullname(sv, gv, prefix) +gv_efullname3(sv, gv, prefix) SV *sv; GV *gv; char *prefix; @@ -712,7 +712,25 @@ char *prefix; GV *egv = GvEGV(gv); if (!egv) egv = gv; - gv_fullname(sv, egv, prefix); + gv_fullname3(sv, egv, prefix); +} + +/* XXX compatibility with versions <= 5.003. */ +void +gv_fullname(sv,gv) +SV *sv; +GV *gv; +{ + gv_fullname3(sv, gv, sv == (SV*)gv ? "*" : ""); +} + +/* XXX compatibility with versions <= 5.003. */ +void +gv_efullname(sv,gv) +SV *sv; +GV *gv; +{ + gv_efullname3(sv, gv, sv == (SV*)gv ? "*" : ""); } IO * |