diff options
Diffstat (limited to 'ext/XS-APItest/APItest.xs')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 51059608b2..34fbfdeb1a 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -891,7 +891,9 @@ static OP *THX_parse_keyword_swaplabel(pTHX) OP *sop = parse_barestmt(0); SV *label = parse_label(PARSE_OPTIONAL); if (label) sv_2mortal(label); - return newSTATEOP(0, label ? savepv(SvPVX(label)) : NULL, sop); + return newSTATEOP(label ? SvUTF8(label) : 0, + label ? savepv(SvPVX(label)) : NULL, + sop); } #define parse_keyword_labelconst() THX_parse_keyword_labelconst(aTHX) |