pp_match(): remove redundant condition

a successful match always sets $-[0] now, so there's no need to check whether its set
Perl · Jul 31, 2013 · adf5188 · adf5188
1 parent 9a743a6
commit adf5188
Showing 1 changed file with 5 additions and 8 deletions.
diff --git a/pp_hot.c b/pp_hot.c
@@ -1447,14 +1447,11 @@ PP(pp_match)
         if (!mg) {
             mg = sv_magicext_mglob(TARG);
         }
-        assert(RX_OFFS(rx)[0].start != -1); /* XXX get rid of next line? */
-        if (RX_OFFS(rx)[0].start != -1) {
-            mg->mg_len = RX_OFFS(rx)[0].end;
-            if (RX_ZERO_LEN(rx))
-                mg->mg_flags |= MGf_MINMATCH;
-            else
-                mg->mg_flags &= ~MGf_MINMATCH;
-        }
+        mg->mg_len = RX_OFFS(rx)[0].end;
+        if (RX_ZERO_LEN(rx))
+            mg->mg_flags |= MGf_MINMATCH;
+        else
+            mg->mg_flags &= ~MGf_MINMATCH;
     }
 
     if ((!RX_NPARENS(rx) && !global) || gimme != G_ARRAY) {