Change 23609 by [EMAIL PROTECTED] on 2004/12/03 22:17:32
gv_fullname4() can get rid of the main:: for us.
(well, actually, it never puts it in)
Affected files ...
... //depot/perl/op.c#643 edit
Differences ...
==== //depot/perl/op.c#643 (text) ====
Index: perl/op.c
--- perl/op.c#642~23608~ Fri Dec 3 13:51:45 2004
+++ perl/op.c Fri Dec 3 14:17:32 2004
@@ -6273,9 +6273,7 @@
OP *sibling = o2->op_sibling;
SV *n = newSVpvn("",0);
op_free(o2);
- gv_fullname3(n, gv, "");
- if (SvCUR(n)>6 && strnEQ(SvPVX(n),"main::",6))
- sv_chop(n, SvPVX(n)+6);
+ gv_fullname4(n, gv, "", FALSE);
o2 = newSVOP(OP_CONST, 0, n);
prev->op_sibling = o2;
o2->op_sibling = sibling;
End of Patch.
