From 92adfbd49af0758bcc9a198cf2df2bd78c4176b9 Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Tue, 7 Mar 2006 18:45:29 -0600 Subject: [PATCH] Removed unused check and assignment in pp_hot.c Message-ID: <20060308064529.GA16499@petdance.com> p4raw-id: //depot/perl@27414 --- pp_hot.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/pp_hot.c b/pp_hot.c index 3292332..f28b042 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -2645,13 +2645,12 @@ S_get_db_sub(pTHX_ SV **svp, CV *cv) save_item(dbsv); if (!PERLDB_SUB_NN) { - GV *gv = CvGV(cv); + GV * const gv = CvGV(cv); if ( (CvFLAGS(cv) & (CVf_ANON | CVf_CLONED)) || strEQ(GvNAME(gv), "END") || ((GvCV(gv) != cv) && /* Could be imported, and old sub redefined. */ - !( (SvTYPE(*svp) == SVt_PVGV) && (GvCV((GV*)*svp) == cv) - && (gv = (GV*)*svp) ))) { + !( (SvTYPE(*svp) == SVt_PVGV) && (GvCV((GV*)*svp) == cv) ))) { /* Use GV from the stack as a fallback. */ /* GV is potentially non-unique, or contain different CV. */ SV * const tmp = newRV((SV*)cv); -- 2.7.4