UTF-8 cleanup.

p4raw-id: //depot/perl@8328

1 files changed, 2 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index 139d98acca..c4935d8311 100644
--- a/sv.c
+++ b/sv.c
@@ -2945,7 +2945,7 @@ Perl_sv_utf8_upgrade(pTHX_ register SV *sv)
     e = SvEND(sv);
     t = s;
     while (t < e) {
-	if ((hibit = *t++ & 0x80))
+	if ((hibit = UTF8_IS_CONTINUED(*t++)))
 	    break;
     }
 
@@ -3037,7 +3037,7 @@ Perl_sv_utf8_decode(pTHX_ register SV *sv)
 	    return FALSE;
         e = SvEND(sv);
         while (c < e) {
-            if (*c++ & 0x80) {
+            if (UTF8_IS_CONTINUED(*c++)) {
 		SvUTF8_on(sv);
 		break;
 	    }