From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 3 Dec 2004 22:17:32 +0000 (+0000)
Subject: gv_fullname4() can get rid of the main:: for us.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a797ae270630262a3ca6b2ac49b8cd050c5acea;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;