Select Code to Download

#include <stdio.h>
#include <unicase.h>
...
size_t input_length;
input_length=strlen(instring); //u8_strlen works too
result = u8_toupper (instring, input_length, NULL, UNINORM_NFC, NULL, 
+&length);

SV*
uppercase_utf8_2(SV* sv)
...
    RETVAL = aresult;
OUTPUT:
    RETVAL

==614897== Invalid read of size 1
==614897==    at 0x484F234: strlen (in /usr/libexec/valgrind/vgpreload
+_memcheck-amd64-linux.so)
...
==614897==    by 0x183F8C: Perl_gv_fetchpvn_flags (in /usr/bin/perl)
==614897==    by 0x174ED2: perl_parse (in /usr/bin/perl)
==614897==    by 0x14D55B: main (in /usr/bin/perl)