diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-13 05:20:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-13 05:20:56 +0000 |
| commit | 3fc84d6d211b0a150b0553bd68f8661a66c0430a (patch) | |
| tree | 3dd6ea64b6553b7ab21516a516737210a0c308c1 /pp.c | |
| parent | 69625aa92a91bf4ca9e0af8d5dd7d748e3cdd293 (diff) | |
| download | perl-3fc84d6d211b0a150b0553bd68f8661a66c0430a.tar.gz | |
Better be explicit with dangling elses.
p4raw-id: //depot/perl@19507
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -594,11 +594,12 @@ PP(pp_gelem) sv = newSVpvn(GvNAME(gv), GvNAMELEN(gv)); break; case 'P': - if (strEQ(elem, "PACKAGE")) - if (HvNAME(GvSTASH(gv))) - sv = newSVpv(HvNAME(GvSTASH(gv)), 0); - else - sv = newSVpv("__ANON__",0); + if (strEQ(elem, "PACKAGE")) { + if (HvNAME(GvSTASH(gv))) + sv = newSVpv(HvNAME(GvSTASH(gv)), 0); + else + sv = newSVpv("__ANON__",0); + } break; case 'S': if (strEQ(elem, "SCALAR")) |