From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 29 Oct 2005 10:53:40 +0000 (+0000)
Subject: gv_fullname and gv_efullname are definately mathoms.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2f0f09211f65b9eb53652642c8665449ebbea60;p=p5sagit%2Fp5-mst-13.2.git

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