diff options
| author | TizenOpenSource <tizenopensrc@samsung.com> | 2024-02-15 11:02:19 +0900 |
|---|---|---|
| committer | TizenOpenSource <tizenopensrc@samsung.com> | 2024-02-15 11:02:19 +0900 |
| commit | ce4b3717c547a8747a30be857a4f29b9dccbb9e2 (patch) | |
| tree | a926d795f9867f696c0cbd5dfa585714c128f2a1 /perl-libxml-mm.c | |
| parent | 9f45becdcc247e15d9308c5adfc4335e2c3a2e6e (diff) | |
| download | perl-XML-LibXML-ce4b3717c547a8747a30be857a4f29b9dccbb9e2.tar.gz perl-XML-LibXML-ce4b3717c547a8747a30be857a4f29b9dccbb9e2.tar.bz2 perl-XML-LibXML-ce4b3717c547a8747a30be857a4f29b9dccbb9e2.zip | |
Imported Upstream version 2.0209upstream/2.0209upstream
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); |