Change 17713: [PATCH] gv_fullname3 as call to gv_fullname4

[hv]

Change 17713 by [EMAIL PROTECTED] on 2002/08/12 11:24:44

        Subject: [PATCH] gv_fullname3 as call to gv_fullname4
        From: Nicholas Clark <[EMAIL PROTECTED]>
        Date: Sun, 11 Aug 2002 16:59:16 +0100
        Message-id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/gv.c#174 edit

Differences ...

==== //depot/perl/gv.c#174 (text) ====
Index: perl/gv.c
--- perl/gv.c#173~16048~        Sun Apr 21 12:53:08 2002
+++ perl/gv.c   Mon Aug 12 04:24:44 2002
@@ -1077,15 +1077,7 @@
 void
 Perl_gv_fullname3(pTHX_ SV *sv, GV *gv, const char *prefix)
 {
-    HV *hv = GvSTASH(gv);
-    if (!hv) {
-       (void)SvOK_off(sv);
-       return;
-    }
-    sv_setpv(sv, prefix ? prefix : "");
-    sv_catpv(sv,HvNAME(hv));
-    sv_catpvn(sv,"::", 2);
-    sv_catpvn(sv,GvNAME(gv),GvNAMELEN(gv));
+    gv_fullname4(sv, gv, prefix, TRUE);
 }
 
 void
@@ -1100,10 +1092,7 @@
 void
 Perl_gv_efullname3(pTHX_ SV *sv, GV *gv, const char *prefix)
 {
-    GV *egv = GvEGV(gv);
-    if (!egv)
-       egv = gv;
-    gv_fullname3(sv, egv, prefix);
+    gv_efullname4(sv, gv, prefix, TRUE);
 }
 
 /* XXX compatibility with versions <= 5.003. */
End of Patch.