diff options
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -253,9 +253,9 @@ perl_construct(pTHXx) if (PERL_REVISION > 127 || PERL_VERSION > 127 || PERL_SUBVERSION > 127) SvGROW(PL_patchlevel, UTF8_MAXLEN*3+1); s = (U8*)SvPVX(PL_patchlevel); - s = uv_to_utf8(s, (UV)PERL_REVISION); - s = uv_to_utf8(s, (UV)PERL_VERSION); - s = uv_to_utf8(s, (UV)PERL_SUBVERSION); + s = uv_to_utf8(s, (UV)(ASCII_TO_NATIVE(PERL_REVISION))); + s = uv_to_utf8(s, (UV)(ASCII_TO_NATIVE(PERL_VERSION))); + s = uv_to_utf8(s, (UV)(ASCII_TO_NATIVE(PERL_SUBVERSION))); *s = '\0'; SvCUR_set(PL_patchlevel, s - (U8*)SvPVX(PL_patchlevel)); SvPOK_on(PL_patchlevel); |