gv_fullname4() can get rid of the main:: for us.

(well, actually, it never puts it in)

p4raw-id: //depot/perl@23609

diff --git a/op.c b/op.c
index 96be415..8fce725 100644 (file)
--- a/op.c
+++ b/op.c
@@ -6273,9 +6273,7 @@ Perl_ck_subr(pTHX_ OP *o)
                                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;