diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-09-28 08:40:53 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-10-01 12:51:54 -0700 |
| commit | 77fc86efb3d857a4cf2bb67c2b84391d55c9732d (patch) | |
| tree | 60aae6d8b1e943f224c31b42befc44209798e482 /universal.c | |
| parent | 892f91270f2acad75eaf1abceabc8c50bf559b2d (diff) | |
| download | perl-77fc86efb3d857a4cf2bb67c2b84391d55c9732d.tar.gz | |
Make utf8::decode respect set-magic
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/universal.c b/universal.c index 676c39b1e9..6bae5bdf00 100644 --- a/universal.c +++ b/universal.c @@ -823,6 +823,7 @@ XS(XS_utf8_decode) bool RETVAL; SvPV_force_nolen(sv); RETVAL = sv_utf8_decode(sv); + SvSETMAGIC(sv); ST(0) = boolSV(RETVAL); } XSRETURN(1); |