diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-03-29 20:10:05 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-03-29 20:10:05 +0000 |
| commit | 257984c0f3908c69bf7c9da69ef001a4c39a7cce (patch) | |
| tree | 6da974caa5dc5e8020a7f9cd6f838ea0a5e79806 /gv.c | |
| parent | 38c076c778be4d77b58837d5c13b55bd2f5fb50e (diff) | |
| download | perl-257984c0f3908c69bf7c9da69ef001a4c39a7cce.tar.gz | |
backout change 22606 (make gv_fullname() include a literal '^')
it breaks select.
p4raw-id: //depot/perl@22608
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -1096,13 +1096,7 @@ Perl_gv_fullname4(pTHX_ SV *sv, GV *gv, const char *prefix, bool keepmain) sv_catpv(sv,name); sv_catpvn(sv,"::", 2); } - if (((unsigned int)*GvNAME(gv)) <= 26) { /* handle $^FOO */ - Perl_sv_catpvf(aTHX_ sv,"^%c", *GvNAME(gv) + 'A' - 1); - sv_catpvn(sv,GvNAME(gv)+1,GvNAMELEN(gv)-1); - } - else - sv_catpvn(sv,GvNAME(gv),GvNAMELEN(gv)); - + sv_catpvn(sv,GvNAME(gv),GvNAMELEN(gv)); } void |