forked from pool/perl-SGML-Parser-OpenSP
Tina Müller
99912dc084
- Add perl538.patch: Fix build with Perl 5.38. OBS-URL: https://build.opensuse.org/request/show/1103152 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-SGML-Parser-OpenSP?expand=0&rev=12
23 lines
925 B
Diff
23 lines
925 B
Diff
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));
|
|
}
|
|
}
|