Change 23626 by [EMAIL PROTECTED] on 2004/12/07 23:39:46
Avoid getting the stash name twice (at least visually, if not also
in the generated code)
Affected files ...
... //depot/perl/sv.c#770 edit
Differences ...
==== //depot/perl/sv.c#770 (text) ====
Index: perl/sv.c
--- perl/sv.c#769~23587~ Wed Dec 1 08:35:10 2004
+++ perl/sv.c Tue Dec 7 15:39:46 2004
@@ -8404,10 +8404,8 @@
Perl_sv_reftype(pTHX_ SV *sv, int ob)
{
if (ob && SvOBJECT(sv)) {
- if (HvNAME(SvSTASH(sv)))
- return HvNAME(SvSTASH(sv));
- else
- return "__ANON__";
+ char *name = HvNAME(SvSTASH(sv));
+ return name ? name : "__ANON__";
}
else {
switch (SvTYPE(sv)) {
End of Patch.
