pool/perl-PerlIO-utf8_strict
SHA256
4
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-PerlIO-utf8_strict?expand=0&rev=7

Browse Source
This commit is contained in:
Stephan Kulow 2017-03-13 15:43:32 +00:00 committed by Git OBS Bridge
parent 32843cf93b
commit 2f1d8b20d6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
no-return-in-nonvoid-function.patch
View File

@ -1,8 +1,8 @@
Index: PerlIO-utf8_strict-0.004/lib/PerlIO/utf8_strict.xs
Index: PerlIO-utf8_strict-0.006/utf8_strict.xs
===================================================================
--- PerlIO-utf8_strict-0.004.orig/lib/PerlIO/utf8_strict.xs
+++ PerlIO-utf8_strict-0.004/lib/PerlIO/utf8_strict.xs
@@ -152,6 +152,7 @@ static STRLEN validate(pTHX_ const U8 *b
--- PerlIO-utf8_strict-0.006.orig/utf8_strict.xs
+++ PerlIO-utf8_strict-0.006/utf8_strict.xs
@@ -153,6 +153,7 @@ static STRLEN validate(pTHX_ const U8 *b
skip = skip_sequence(cur, end - cur);
PerlIOBase(handle)->flags |= PERLIO_F_ERROR;
report_illformed(aTHX_ cur, skip, eof);
@ -10,7 +10,7 @@ Index: PerlIO-utf8_strict-0.004/lib/PerlIO/utf8_strict.xs
noncharacter:
if (v < 0xF0808080)
@@ -160,6 +161,7 @@ static STRLEN validate(pTHX_ const U8 *b
@@ -161,6 +162,7 @@ static STRLEN validate(pTHX_ const U8 *b
v = (v & 0x3F) | (v & 0x3F00) >> 2 | (v & 0x3F0000) >> 4 | (v & 0x07000000) >> 6;
PerlIOBase(handle)->flags |= PERLIO_F_ERROR;
report_noncharacter(aTHX_ v);