This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: White-space only
authorKarl Williamson <khw@cpan.org>
Mon, 18 Mar 2019 03:47:16 +0000 (21:47 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 18 Mar 2019 16:40:15 +0000 (10:40 -0600)
Outdent to reflect removed enclosing block

regexec.c

index cafc6b7..deecde7 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -8725,19 +8725,18 @@ NULL
 
                 /* If the lookbehind doesn't start in the actual string, is a
                  * trivial match failure */
-                   if (logical) {
-                       logical = 0;
-                       sw = 1 - cBOOL(ST.wanted);
-                   }
-                   else if (ST.wanted)
-                       sayNO;
+                if (logical) {
+                    logical = 0;
+                    sw = 1 - cBOOL(ST.wanted);
+                }
+                else if (ST.wanted)
+                    sayNO;
 
-                    /* Here, we didn't want it to match, so is actually success
-                     * */
-                   next = scan + ARG(scan);
-                   if (next == scan)
-                       next = NULL;
-                   break;
+                /* Here, we didn't want it to match, so is actually success */
+                next = scan + ARG(scan);
+                if (next == scan)
+                    next = NULL;
+                break;
            }
 
          do_ifmatch: