From 43a7bd62098d36de61176a40d7eb3e72a2b9f033 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Mon, 19 Oct 2015 11:16:58 -0600
Subject: [PATCH] Fix some bugs with \b{gcb}, wb and sb

These were thinkos.  These things shouldn't have been in the
conditional, but after it so they are executed each time through the
loop.
---
 regexec.c | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/regexec.c b/regexec.c
index 489a1be..2303c23 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2087,8 +2087,8 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
                             if (reginfo->intuit || regtry(reginfo, &s)) {
                                 goto got_it;
                             }
-                            before = after;
                         }
+                        before = after;
                         s += UTF8SKIP(s);
                     }
                 }
@@ -2101,8 +2101,8 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
                             if (reginfo->intuit || regtry(reginfo, &s)) {
                                 goto got_it;
                             }
-                            s++;
                         }
+                        s++;
                     }
                 }
 
@@ -2143,8 +2143,8 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
                             if (reginfo->intuit || regtry(reginfo, &s)) {
                                 goto got_it;
                             }
-                            before = after;
                         }
+                        before = after;
                         s += UTF8SKIP(s);
                     }
                 }
@@ -2162,8 +2162,8 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
                             if (reginfo->intuit || regtry(reginfo, &s)) {
                                 goto got_it;
                             }
-                            before = after;
                         }
+                        before = after;
                         s++;
                     }
                 }
@@ -2215,9 +2215,9 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
                             if (reginfo->intuit || regtry(reginfo, &s)) {
                                 goto got_it;
                             }
-                            previous = before;
-                            before = after;
                         }
+                        previous = before;
+                        before = after;
                         s += UTF8SKIP(s);
                     }
                 }
@@ -2237,9 +2237,9 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s,
                             if (reginfo->intuit || regtry(reginfo, &s)) {
                                 goto got_it;
                             }
-                            previous = before;
-                            before = after;
                         }
+                        previous = before;
+                        before = after;
                         s++;
                     }
                 }
-- 
1.8.3.1