[ID 20001113.003] utf8_to_uv on malformed utf returns wrong values

Message-Id: <200011132249.eADMnek09679@garcia.efn.org>

p4raw-id: //depot/perl@7677

1 files changed, 2 insertions, 2 deletions

diff --git a/utf8.c b/utf8.c
index 6ddf42bf5c..a54726f14b 100644
--- a/utf8.c
+++ b/utf8.c
@@ -312,12 +312,12 @@ malformed:
 
     if (flags & UTF8_CHECK_ONLY) {
 	if (retlen)
-	    *retlen = len;
+	    *retlen = -1;
 	return 0;
     }
 
     if (retlen)
-	*retlen = -1;
+	*retlen = expectlen ? expectlen : len;
 
     return UNICODE_REPLACEMENT_CHARACTER;
 }