This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: White-space only
authorKarl Williamson <public@khwilliamson.com>
Tue, 23 Apr 2013 21:14:04 +0000 (15:14 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 20 May 2013 14:59:14 +0000 (08:59 -0600)
Change this to follow perl coding conventions

regcomp.c

index 1a1cd1c..3e20db1 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8748,8 +8748,8 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
            }
            nextchar(pRExC_state);
            return ret;
-        } else 
-       if (*RExC_parse == '?') { /* (?...) */
+        }
+        else if (*RExC_parse == '?') { /* (?...) */
            bool is_logical = 0;
            const char * const seqstart = RExC_parse;
             if (has_intervening_patws && SIZE_ONLY) {