diff options
| author | Andy Lester <andy@petdance.com> | 2006-03-07 18:45:29 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-08 10:25:26 +0000 |
| commit | 92adfbd49af0758bcc9a198cf2df2bd78c4176b9 (patch) | |
| tree | f406b08e65419f16b9192e301cb51aa9b8f25518 | |
| parent | e3e31fabab2aac681fec1b1af42501b578cd1b39 (diff) | |
| download | perl-92adfbd49af0758bcc9a198cf2df2bd78c4176b9.tar.gz | |
Removed unused check and assignment in pp_hot.c
Message-ID: <20060308064529.GA16499@petdance.com>
p4raw-id: //depot/perl@27414
| -rw-r--r-- | pp_hot.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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); |