diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-28 16:37:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-28 16:37:26 +0000 |
| commit | 2692f720225eadd5a0dcbb17c23107401470624b (patch) | |
| tree | 03876fdfe1704aecbd4ccf8c4f2e8e01fb3ccbb5 /op.c | |
| parent | 3ffaa9377e33221d8a6272d0232e8830ba4312ca (diff) | |
| download | perl-2692f720225eadd5a0dcbb17c23107401470624b.tar.gz | |
change#3449 wasn't doing enough
p4raw-link: @3449 on //depot/perl: 18228614d1dac2db099ef3d8846e53f44accce72
p4raw-id: //depot/perl@3493
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -5433,10 +5433,12 @@ ck_subr(OP *o) { GV *gv = (GV*)((SVOP*)gvop)->op_sv; OP *sibling = o2->op_sibling; + SV *n = newSVpvn("",0); op_free(o2); - o2 = newSVOP(OP_CONST, 0, - newSVpvn(GvNAME(gv), - GvNAMELEN(gv))); + gv_fullname3(n, gv, ""); + if (SvCUR(n)>6 && strnEQ(SvPVX(n),"main::",6)) + sv_chop(n, SvPVX(n)+6); + o2 = newSVOP(OP_CONST, 0, n); prev->op_sibling = o2; o2->op_sibling = sibling; } |