diff options
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index a693318083..0be5d95310 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -1422,13 +1422,12 @@ test_utf8n_to_uvchr_msgs(s, len, flags) AV * test_utf8n_to_uvchr_error(s, len, flags) - SV *s - SV *len - SV *flags + char *s + STRLEN len + U32 flags PREINIT: STRLEN retlen; UV ret; - STRLEN slen; U32 errors; CODE: @@ -1441,10 +1440,10 @@ test_utf8n_to_uvchr_error(s, len, flags) RETVAL = newAV(); sv_2mortal((SV*)RETVAL); - ret = utf8n_to_uvchr_error((U8*) SvPV(s, slen), - SvUV(len), + ret = utf8n_to_uvchr_error((U8*) s, + len, &retlen, - SvUV(flags), + flags, &errors); /* Returns the return value in [0]; <retlen> in [1], <errors> in [2] */ |