diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-13 05:49:19 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-13 16:37:48 +0000 |
| commit | 46c461b51dd657dd9227e8d230ce0a737a33cb3e (patch) | |
| tree | ca0f3694daf76da19fba2b8c90d3aa186b9011f9 /gv.c | |
| parent | 858a90f980dd074da7b777d2a853a60c6e058f77 (diff) | |
| download | perl-46c461b51dd657dd9227e8d230ce0a737a33cb3e.tar.gz | |
More embed.fnc plowing
Message-ID: <20050713154919.GA24586@petdance.com>
p4raw-id: //depot/perl@25138
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1191,10 +1191,8 @@ Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix) void Perl_gv_efullname4(pTHX_ SV *sv, const GV *gv, const char *prefix, bool keepmain) { - const GV *egv = GvEGV(gv); - if (!egv) - egv = gv; - gv_fullname4(sv, egv, prefix, keepmain); + const GV * const egv = GvEGV(gv); + gv_fullname4(sv, egv ? egv : gv, prefix, keepmain); } void |