This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
gv_fullname and gv_efullname are definately mathoms.
authorNicholas Clark <nick@ccl4.org>
Sat, 29 Oct 2005 10:53:40 +0000 (10:53 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 29 Oct 2005 10:53:40 +0000 (10:53 +0000)
p4raw-id: //depot/perl@25869

gv.c
mathoms.c

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