gv_fullname and gv_efullname are definately mathoms.

p4raw-id: //depot/perl@25869

diff --git a/gv.c b/gv.c
index d222d28..78d9d95 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1201,20 +1201,6 @@ Perl_gv_efullname3(pTHX_ SV *sv, const GV *gv, const char *prefix)
     gv_efullname4(sv, gv, prefix, TRUE);
 }
 
-/* compatibility with versions <= 5.003. */
-void
-Perl_gv_fullname(pTHX_ SV *sv, const GV *gv)
-{
-    gv_fullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
-}
-
-/* compatibility with versions <= 5.003. */
-void
-Perl_gv_efullname(pTHX_ SV *sv, const GV *gv)
-{
-    gv_efullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
-}
-
 IO *
 Perl_newIO(pTHX)
 {

diff --git a/mathoms.c b/mathoms.c
index 064acc7..a9fad36 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -16,8 +16,8 @@
 
 /* 
  * This file contains mathoms, various binary artifacts from previous
- * versions of Perl.  For binary compatibility reasons, though, we
- * cannot completely remove them from the core code.  
+ * versions of Perl.  For binary or source compatibility reasons, though,
+ * we cannot completely remove them from the core code.  
  *
  * SMP - Oct. 24, 2005
  *
@@ -291,6 +291,20 @@ document
 }
 #endif /* sfio */
 
+/* compatibility with versions <= 5.003. */
+void
+Perl_gv_fullname(pTHX_ SV *sv, const GV *gv)
+{
+    gv_fullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
+}
+
+/* compatibility with versions <= 5.003. */
+void
+Perl_gv_efullname(pTHX_ SV *sv, const GV *gv)
+{
+    gv_efullname3(sv, gv, sv == (const SV*)gv ? "*" : "");
+}
+
 /*
  * Local variables:
  * c-indentation-style: bsd