Change 23083: Perl_is_utf8_string(pTHX_ U8 *s, STRLEN len)

[Nick Ing-Simmons]

Change 23083 by [EMAIL PROTECTED] on 2004/07/12 12:17:56

        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() ?

Affected files ...

... //depot/perl/utf8.c#206 edit

Differences ...

==== //depot/perl/utf8.c#206 (text) ====
Index: perl/utf8.c
--- perl/utf8.c#205~22764~      Sun May  2 10:57:12 2004
+++ perl/utf8.c Mon Jul 12 05:17:56 2004
@@ -232,7 +232,7 @@
     U8* send;
     STRLEN c;
 
-    if (!len)
+    if (!len && s)
        len = strlen((char *)s);
     send = s + len;
 
@@ -272,7 +272,7 @@
     U8* send;
     STRLEN c;
 
-    if (!len)
+    if (!len && s)
        len = strlen((char *)s);
     send = s + len;
 
End of Patch.