From def8e4ea8caaa1180102a74b7613845e72bcb26c Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 9 Jan 2002 01:32:05 +0000
Subject: SANY (. with /s) wasn't happy on Unicode.

p4raw-id: //depot/perl@14143
---
 regexec.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'regexec.c')

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;
-- 
cgit v1.2.1