File perl538.patch of Package perl-SGML-Parser-OpenSP

Index: SGML-Parser-OpenSP-0.994/OpenSP.xs
===================================================================
--- SGML-Parser-OpenSP-0.994.orig/OpenSP.xs
+++ SGML-Parser-OpenSP-0.994/OpenSP.xs
@@ -162,7 +162,7 @@ SV* SgmlParserOpenSP::cs2sv(const SGMLAp
     {
         d = m_temp;
         for (i = 0; i < s.len; ++i)
-            d = uvuni_to_utf8_flags(d, s.ptr[i], 0);
+            d = uvoffuni_to_utf8_flags(d, s.ptr[i], 0);
         result = newSVpvn((const char*)m_temp, d - m_temp);
     }
     else
@@ -171,7 +171,7 @@ SV* SgmlParserOpenSP::cs2sv(const SGMLAp
         for (i = 0; i < s.len; ++i)
         {
             d = (U8 *)SvGROW(result, SvCUR(result) + UTF8_MAXLEN + 1);
-            d = uvuni_to_utf8_flags(d + SvCUR(result), s.ptr[i], 0); 
+            d = uvoffuni_to_utf8_flags(d + SvCUR(result), s.ptr[i], 0); 
             SvCUR_set(result, d - (U8 *)SvPVX(result));
         }
     }