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 (file)
--- 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 (file)
--- 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