Change 23605 by [EMAIL PROTECTED] on 2004/12/03 18:56:31
Small code tidy up in gv_fullname4
Affected files ...
... //depot/perl/gv.c#209 edit
Differences ...
==== //depot/perl/gv.c#209 (text) ====
Index: perl/gv.c
--- perl/gv.c#208~23604~ Fri Dec 3 10:26:43 2004
+++ perl/gv.c Fri Dec 3 10:56:31 2004
@@ -1092,13 +1092,12 @@
}
sv_setpv(sv, prefix ? prefix : "");
- if (!HvNAME(hv))
+ name = HvNAME(hv);
+ if (!name)
name = "__ANON__";
- else
- name = HvNAME(hv);
+
if (keepmain || strNE(name, "main")) {
- sv_catpv(sv,name);
- sv_catpvn(sv,"::", 2);
+ Perl_sv_catpvf(aTHX_ sv,"%s::", name);
}
sv_catpvn(sv,GvNAME(gv),GvNAMELEN(gv));
}
End of Patch.
