Commits

Anonymous committed d12d6e3

Modified Files:
perl-libxml-mm.c
+ replaced SvUTF8() with DO_UTF8() for better compatibility
with perl > 5.6

Comments (0)

Files changed (1)

             xs_warn( "no undefs" );
 #ifdef HAVE_UTF8
             xs_warn( "use UTF8" );
-            if( !SvUTF8(scalar) && encoding != NULL ) {
+            if( !DO_UTF8(scalar) && encoding != NULL ) {
 #else
             if ( encoding != NULL ) {
 #endif
         xs_warn("have node!");
 
         if (real_dom != NULL && real_dom->encoding != NULL
-             && !SvUTF8(scalar) ) {
+             && !DO_UTF8(scalar) ) {
             xs_warn("encode string!");
             return Sv2C(scalar,real_dom->encoding);
         }