mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-10-22 16:02:30 +02:00
perl: Fix utf8 mode not to be reseted by $unpacker->reset method
This commit is contained in:
@@ -443,10 +443,12 @@ XS(xs_unpacker_reset) {
|
||||
}
|
||||
|
||||
UNPACKER(ST(0), mp);
|
||||
bool const utf8 = mp->user.utf8; // save
|
||||
|
||||
SV* const data = template_data(mp);
|
||||
SvREFCNT_dec(data);
|
||||
_reset(ST(0));
|
||||
mp->user.utf8 = utf8;
|
||||
|
||||
XSRETURN(0);
|
||||
}
|
||||
|
Reference in New Issue
Block a user