SANY (. with /s) wasn't happy on Unicode.

p4raw-id: //depot/perl@14143

1 files changed, 9 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index 4602b05f3a..06f0d8eb57 100644
--- a/regexec.c
+++ b/regexec.c
@@ -3877,7 +3877,15 @@ S_regrepeat(pTHX_ regnode *p, I32 max)
 	}
 	break;
     case SANY:
-	scan = loceol;
+        if (do_utf8) {
+	    loceol = PL_regeol;
+	    while (scan < loceol) {
+	        scan += UTF8SKIP(scan);
+		hardcount++;
+	    }
+	}
+	else
+	    scan = loceol;
 	break;
     case CANY:
 	scan = loceol;