Tidy up the reference name stringification to save getting the

hash name twice. Pleasant side effect is 44 byte smaller object
file. (A small win is still a win)

p4raw-id: //depot/perl@23587

1 files changed, 6 insertions, 7 deletions

diff --git a/sv.c b/sv.c
index 43620e9960..82b844a3e2 100644
--- a/sv.c
+++ b/sv.c
@@ -3620,14 +3620,13 @@ Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags)
 		default:	s = "UNKNOWN";			break;
 		}
 		tsv = NEWSV(0,0);
-		if (SvOBJECT(sv))
-		    if (HvNAME(SvSTASH(sv)))
-			Perl_sv_setpvf(aTHX_ tsv, "%s=%s", HvNAME(SvSTASH(sv)), s);
-		    else
-			Perl_sv_setpvf(aTHX_ tsv, "__ANON__=%s", s);
+		if (SvOBJECT(sv)) {
+		    const char *name = HvNAME(SvSTASH(sv));
+		    Perl_sv_setpvf(aTHX_ tsv, "%s=%s(0x%"UVxf")",
+				   name ? name : "__ANON__" , s, PTR2UV(sv));
+		}
 		else
-		    sv_setpv(tsv, s);
-		Perl_sv_catpvf(aTHX_ tsv, "(0x%"UVxf")", PTR2UV(sv));
+		    Perl_sv_setpvf(aTHX_ tsv, "%s(0x%"UVxf")", s, PTR2UV(sv));
 		goto tokensaveref;
 	    }
 	    *lp = strlen(s);