From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 29 Oct 2005 11:14:40 +0000 (+0000)
Subject: gv_fullname3 and gv_efullname3 are definately mathoms. They even say so.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2674aeec9d4106f3928d3c8b88be7bc9e6f8eff1;p=p5sagit%2Fp5-mst-13.2.git

gv_fullname3 and gv_efullname3 are definately mathoms. They even say so.

p4raw-id: //depot/perl@25871
---

diff --git a/gv.c b/gv.c
index 78d9d95..1d950eb 100644
--- a/gv.c
+++ b/gv.c
@@ -1183,24 +1183,12 @@ Perl_gv_fullname4(pTHX_ SV *sv, const GV *gv, const char *prefix, bool keepmain)
 }
 
 void
-Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix)
-{
-    gv_fullname4(sv, gv, prefix, TRUE);
-}
-
-void
 Perl_gv_efullname4(pTHX_ SV *sv, const GV *gv, const char *prefix, bool keepmain)
 {
     const GV * const egv = GvEGV(gv);
     gv_fullname4(sv, egv ? egv : gv, prefix, keepmain);
 }
 
-void
-Perl_gv_efullname3(pTHX_ SV *sv, const GV *gv, const char *prefix)
-{
-    gv_efullname4(sv, gv, prefix, TRUE);
-}
-
 IO *
 Perl_newIO(pTHX)
 {
diff --git a/mathoms.c b/mathoms.c
index a9fad36..3d9105f 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -305,6 +305,18 @@ Perl_gv_efullname(pTHX_ SV *sv, const GV *gv)
     gv_efullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
 }
 
+void
+Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix)
+{
+    gv_fullname4(sv, gv, prefix, TRUE);
+}
+
+void
+Perl_gv_efullname3(pTHX_ SV *sv, const GV *gv, const char *prefix)
+{
+    gv_efullname4(sv, gv, prefix, TRUE);
+}
+
 /*
  * Local variables:
  * c-indentation-style: bsd