This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
gv_fullname3 and gv_efullname3 are definately mathoms. They even say so.
authorNicholas Clark <nick@ccl4.org>
Sat, 29 Oct 2005 11:14:40 +0000 (11:14 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 29 Oct 2005 11:14:40 +0000 (11:14 +0000)
p4raw-id: //depot/perl@25871

gv.c
mathoms.c

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