This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_match(): remove some superfluous braces
authorDavid Mitchell <davem@iabyn.com>
Wed, 31 Jul 2013 09:29:49 +0000 (10:29 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 31 Jul 2013 09:29:49 +0000 (10:29 +0100)
pp_hot.c

index c397799..5010606 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1420,22 +1420,20 @@ PP(pp_match)
     s = truebase;
 
   play_it_again:
-    if (global) {
+    if (global)
        s = truebase + curpos;
-    }
 
     if (!CALLREGEXEC(rx, (char*)s, (char *)strend, (char*)truebase,
                     had_zerolen, TARG, NULL, r_flags))
        goto nope;
 
     PL_curpm = pm;
-    if (dynpm->op_pmflags & PMf_ONCE) {
+    if (dynpm->op_pmflags & PMf_ONCE)
 #ifdef USE_ITHREADS
        SvREADONLY_on(PL_regex_pad[dynpm->op_pmoffset]);
 #else
        dynpm->op_pmflags |= PMf_USED;
 #endif
-    }
 
     if (rxtainted)
        RX_MATCH_TAINTED_on(rx);