From 61468b033262a3098f06f5437d4f3f1f301cacb3 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Mon, 12 Jul 2004 12:17:56 +0000 Subject: [PATCH] Perl_is_utf8_string(pTHX_ U8 *s, STRLEN len) Can now handle the case is_utf8_string(NULL,0) again. Why do we have code dup for Perl_is_utf8_string_loc() ? p4raw-id: //depot/perl@23083 --- utf8.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/utf8.c b/utf8.c index 6f201a2..6155fab 100644 --- a/utf8.c +++ b/utf8.c @@ -232,7 +232,7 @@ Perl_is_utf8_string(pTHX_ U8 *s, STRLEN len) U8* send; STRLEN c; - if (!len) + if (!len && s) len = strlen((char *)s); send = s + len; @@ -272,7 +272,7 @@ Perl_is_utf8_string_loc(pTHX_ U8 *s, STRLEN len, U8 **p) U8* send; STRLEN c; - if (!len) + if (!len && s) len = strlen((char *)s); send = s + len; -- 2.7.4