This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Removed unused check and assignment in pp_hot.c
authorAndy Lester <andy@petdance.com>
Wed, 8 Mar 2006 00:45:29 +0000 (18:45 -0600)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 8 Mar 2006 10:25:26 +0000 (10:25 +0000)
Message-ID: <20060308064529.GA16499@petdance.com>

p4raw-id: //depot/perl@27414

pp_hot.c

index 3292332..f28b042 100644 (file)
--- 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);