Program with utf8 identifiers fails to compile

p4raw-id: //depot/perl@2038

1 files changed, 2 insertions, 3 deletions

diff --git a/doop.c b/doop.c
index 5390331fee..7ed895d2a9 100644
--- a/doop.c
+++ b/doop.c
@@ -215,10 +215,9 @@ do_trans_UU_count(SV *sv)
     send = s + len;
 
     while (s < send) {
-	if ((uv = swash_fetch(rv, s)) < none) {
-	    s += UTF8SKIP(s);
+	if ((uv = swash_fetch(rv, s)) < none)
 	    matches++;
-	}
+	s += UTF8SKIP(s);
     }
 
     return matches;