[FIX] Re: UTF-8 failures (surprise!)

Message-ID: <20030130084809.GA16902@ratsnest.hole>

Fix for half of the failures, with an expanded test.

p4raw-id: //depot/perl@18603

1 files changed, 2 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index c7c83a94e2..5a99375095 100644
--- a/sv.c
+++ b/sv.c
@@ -5787,6 +5787,8 @@ Perl_sv_pos_b2u(pTHX_ register SV* sv, I32* offsetp)
 			U8 *p = s + cache[1];
 			STRLEN ubackw = 0;
 			     
+			cache[1] -= backw;
+
 			while (backw--) {
 			    p--;
 			    while (UTF8_IS_CONTINUATION(*p))
@@ -5795,7 +5797,6 @@ Perl_sv_pos_b2u(pTHX_ register SV* sv, I32* offsetp)
 			}
 
 			cache[0] -= ubackw;
-			cache[1] -= backw;
 
 			return;
 		    }