This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest: Correct parameter sign
authorKarl Williamson <khw@cpan.org>
Thu, 8 Feb 2018 20:51:48 +0000 (13:51 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 8 Feb 2018 20:58:38 +0000 (13:58 -0700)
Commit ae315a0a3c51e68887704d4907bb6a502a6d4e3f added tests for
utf8_to_bytes().  For testing purposes, this parameter should be signed
when it comes from perl space.

ext/XS-APItest/APItest.xs

index b12cc82..842b628 100644 (file)
@@ -1382,7 +1382,7 @@ bytes_cmp_utf8(bytes, utf8)
 AV *
 test_utf8_to_bytes(bytes, lenp)
         unsigned char * bytes
 AV *
 test_utf8_to_bytes(bytes, lenp)
         unsigned char * bytes
-        STRLEN lenp
+        ssize_t lenp
     PREINIT:
         char * ret;
     CODE:
     PREINIT:
         char * ret;
     CODE: