This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_match(): remove ret_no label
authorDavid Mitchell <davem@iabyn.com>
Sun, 16 Jun 2013 15:09:07 +0000 (16:09 +0100)
committerDavid Mitchell <davem@iabyn.com>
Sun, 28 Jul 2013 09:33:35 +0000 (10:33 +0100)
The nope: and ret_no: labels labelled the same point in the code.
Eliminate one of them.

pp_hot.c

index ceb934d..899f35f 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1466,7 +1466,7 @@ PP(pp_match)
     }
     if (!CALLREGEXEC(rx, (char*)s, (char *)strend, (char*)truebase,
                     minmatch, TARG, NUM2PTR(void*, gpos), r_flags))
-       goto ret_no;
+       goto nope;
 
   gotcha:
     PL_curpm = pm;
@@ -1542,7 +1542,6 @@ PP(pp_match)
     /* NOTREACHED */
 
 nope:
-ret_no:
     if (global && !(dynpm->op_pmflags & PMf_CONTINUE)) {
            MAGIC* const mg = mg_find_mglob(TARG);
            if (mg)