t/io/fs.t - skip all tests that fail on VOS
[p5sagit/p5-mst-13.2.git] / regexec.c
index 5a6d72d..f2d4b3d 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -1129,10 +1129,9 @@ S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *sta
                if (s == PL_bostr)
                    tmp = '\n';
                else {
-                   U8 *r = reghop3((U8*)s, -1, (U8*)startpos);
+                   U8 *r = reghop3((U8*)s, -1, (U8*)PL_bostr);
                
-                   if (s > (char*)r)
-                       tmp = (I32)utf8n_to_uvchr(r, s - (char*)r, 0, 0);
+                   tmp = utf8n_to_uvchr(r, UTF8SKIP(r), 0, 0);
                }
                tmp = ((OP(c) == BOUND ?
                        isALNUM_uni(tmp) : isALNUM_LC_uvchr(UNI_TO_NATIVE(tmp))) != 0);
@@ -1173,10 +1172,9 @@ S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *sta
                if (s == PL_bostr)
                    tmp = '\n';
                else {
-                   U8 *r = reghop3((U8*)s, -1, (U8*)startpos);
+                   U8 *r = reghop3((U8*)s, -1, (U8*)PL_bostr);
                
-                   if (s > (char*)r)
-                       tmp = (I32)utf8n_to_uvchr(r, s - (char*)r, 0, 0);
+                   tmp = utf8n_to_uvchr(r, UTF8SKIP(r), 0, 0);
                }
                tmp = ((OP(c) == NBOUND ?
                        isALNUM_uni(tmp) : isALNUM_LC_uvchr(UNI_TO_NATIVE(tmp))) != 0);
@@ -2563,9 +2561,9 @@ S_regmatch(pTHX_ regnode *prog)
                if (locinput == PL_bostr)
                    ln = '\n';
                else {
-                   U8 *r = reghop((U8*)locinput, -1);
+                   U8 *r = reghop3((U8*)locinput, -1, (U8*)PL_bostr);
                
-                   ln = utf8n_to_uvchr(r, s - (char*)r, 0, 0);
+                   ln = utf8n_to_uvchr(r, UTF8SKIP(r), 0, 0);
                }
                if (OP(scan) == BOUND || OP(scan) == NBOUND) {
                    ln = isALNUM_uni(ln);