diff options
Diffstat (limited to 'perl-libxml-mm.c')
| -rw-r--r-- | perl-libxml-mm.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-libxml-mm.c b/perl-libxml-mm.c index b433c5c..a3e78a2 100644 --- a/perl-libxml-mm.c +++ b/perl-libxml-mm.c @@ -1118,6 +1118,7 @@ Sv2C( SV* scalar, const xmlChar *encoding ) dTHX; xs_warn("SV2C: start!\n"); + SvGETMAGIC(scalar); if ( scalar != NULL && SvOK(scalar) ) { STRLEN len = 0; char * t_pv =SvPV(scalar, len); |