develooper Front page | perl.perl5.changes | Postings from October 2019

[perl.git] branch blead updated. v5.31.4-361-gf87d8789b9

From:
Karl Williamson
Date:
October 13, 2019 19:06
Subject:
[perl.git] branch blead updated. v5.31.4-361-gf87d8789b9
Message ID:
E1iJjBk-0004U1-Aw@git.dc.perl.space
In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/f87d8789b924d2fac04671d98d5db10eee8da45e?hp=eeef80ee5baf3bfa9bcd89b3a8d2f536461f8bc2>

- Log -----------------------------------------------------------------
commit f87d8789b924d2fac04671d98d5db10eee8da45e
Author: Karl Williamson <khw@cpan.org>
Date:   Sun Oct 13 00:35:43 2019 -0700

    Fix UTF8_CHK_SKIP()
    
    I forgot an arg in a macro it calls.

-----------------------------------------------------------------------

Summary of changes:
 utf8.h | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/utf8.h b/utf8.h
index 83cccf16c3..8868efb5d0 100644
--- a/utf8.h
+++ b/utf8.h
@@ -583,7 +583,8 @@ L</C<UTF8_SAFE_SKIP>>, for example when interfacing with a C library.
 */
 
 #define UTF8_CHK_SKIP(s)                                                       \
-            (s[0] == '\0' ? 1 : MIN(my_strnlen((char *) (s), UTF8SKIP(s))))
+            (s[0] == '\0' ? 1 : MIN(UTF8SKIP(s),                               \
+                                    my_strnlen((char *) (s), UTF8SKIP(s))))
 /*
 
 =for apidoc Am|STRLEN|UTF8_SAFE_SKIP|char* s|char* e

-- 
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About