From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 9 Jan 2005 23:42:25 +0000 (+0000)
Subject: Shorter source code in pp_gelem. (But it compiles to the same size)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af2250df3612234f2fb1be95c7e91920e7cd92f7;p=p5sagit%2Fp5-mst-13.2.git

Shorter source code in pp_gelem. (But it compiles to the same size)

p4raw-id: //depot/perl@23774
---

diff --git a/pp.c b/pp.c
index c0212b9..69d8e18 100644
--- a/pp.c
+++ b/pp.c
@@ -597,10 +597,8 @@ PP(pp_gelem)
 	    break;
 	case 'P':
 	    if (strEQ(elem2, "ACKAGE")) {
-		if (HvNAME(GvSTASH(gv)))
-		    sv = newSVpv(HvNAME(GvSTASH(gv)), 0);
-		else
-		    sv = newSVpv("__ANON__",0);
+		char *name = HvNAME(GvSTASH(gv));
+		sv = newSVpv(name ? name : "__ANON__", 0);
 	    }
 	    break;
 	case 'S':