[perl-YAML-Syck] Work around test failures on PPC and ARM (#919806, CPAN RT#83825)
Paul Howarth
pghmcfc at fedoraproject.org
Sun Mar 10 14:45:05 UTC 2013
commit eac058c2539dbaed6fc92211066768ffd797b855
Author: Paul Howarth <paul at city-fan.org>
Date: Sun Mar 10 14:44:45 2013 +0000
Work around test failures on PPC and ARM (#919806, CPAN RT#83825)
0001-Recognize-all-wide-unicode-characters.patch | 94 ++++++++++++++++++++++
perl-YAML-Syck.spec | 11 ++-
2 files changed, 103 insertions(+), 2 deletions(-)
---
diff --git a/0001-Recognize-all-wide-unicode-characters.patch b/0001-Recognize-all-wide-unicode-characters.patch
new file mode 100644
index 0000000..702a8fa
--- /dev/null
+++ b/0001-Recognize-all-wide-unicode-characters.patch
@@ -0,0 +1,94 @@
+From f646fa6ce15984b4a7d3c7b633be4129ad00c407 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Fri, 8 Mar 2013 13:00:52 +0100
+Subject: [PATCH] Recognize all wide unicode characters
+
+Type cast explicitly to (signed char) because sizof(char) can differ
+from sizof(int). Also do not quote bytes above 0x7F because we assume
+UTF-8 encoding.
+
+This should be fixed properly by UTF-8 to Unicode decoding but we
+need to recognize which encoding is in use before. How?
+---
+ emitter.c | 22 +++++++++++-----------
+ syck.h | 2 +-
+ 2 files changed, 12 insertions(+), 12 deletions(-)
+
+diff --git a/emitter.c b/emitter.c
+index 48141b3..1d1a609 100644
+--- a/emitter.c
++++ b/emitter.c
+@@ -16,9 +16,9 @@
+
+ #define DEFAULT_ANCHOR_FORMAT "id%03d"
+
+-const char hex_table[] =
++const unsigned char hex_table[] =
+ "0123456789ABCDEF";
+-static char b64_table[] =
++static unsigned char b64_table[] =
+ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
+
+ /*
+@@ -598,12 +598,12 @@ syck_scan_scalar( int req_width, char *cursor, long len )
+ /* scan string */
+ for ( i = 0; i < len; i++ ) {
+
+- if ( ! ( (unsigned)cursor[i] == 0x9 ||
+- (unsigned)cursor[i] == 0xA ||
+- (unsigned)cursor[i] == 0xD ||
+- ( (unsigned)cursor[i] >= 0x20 && (unsigned)cursor[i] <= 0x7E ) ||
+- (unsigned)cursor[i] == 0x85 ||
+- (unsigned)cursor[i] >= 0xa0 )
++ if ( ! ( (unsigned char)cursor[i] == 0x9 ||
++ (unsigned char)cursor[i] == 0xA ||
++ (unsigned char)cursor[i] == 0xD ||
++ ( (unsigned char)cursor[i] >= 0x20 &&
++ (unsigned char)cursor[i] <= 0x7E ) ||
++ (unsigned char)cursor[i] >= 0x80 )
+ ) {
+ flags |= SCAN_NONPRINT;
+ }
+@@ -812,7 +812,7 @@ void syck_emit_scalar( SyckEmitter *e, char *tag, enum scalar_style force_style,
+ }
+
+ void
+-syck_emitter_escape( SyckEmitter *e, char *src, long len )
++syck_emitter_escape( SyckEmitter *e, unsigned char *src, long len )
+ {
+ int i;
+ for( i = 0; i < len; i++ )
+@@ -927,7 +927,7 @@ void syck_emit_2quoted_1( SyckEmitter *e, int width, char *str, long len )
+ break;
+
+ default:
+- syck_emitter_escape( e, mark, 1 );
++ syck_emitter_escape( e, (unsigned char *)mark, 1 );
+ break;
+ }
+ mark++;
+@@ -990,7 +990,7 @@ void syck_emit_2quoted( SyckEmitter *e, int width, char *str, long len )
+ break;
+
+ default:
+- syck_emitter_escape( e, mark, 1 );
++ syck_emitter_escape( e, (unsigned char*)mark, 1 );
+ break;
+ }
+ mark++;
+diff --git a/syck.h b/syck.h
+index 2886561..f5118cd 100644
+--- a/syck.h
++++ b/syck.h
+@@ -411,7 +411,7 @@ void syck_emitter_handler( SyckEmitter *, SyckEmitterHandler );
+ void syck_free_emitter( SyckEmitter * );
+ void syck_emitter_clear( SyckEmitter * );
+ void syck_emitter_write( SyckEmitter *, const char *, long );
+-void syck_emitter_escape( SyckEmitter *, char *, long );
++void syck_emitter_escape( SyckEmitter *, unsigned char *, long );
+ void syck_emitter_flush( SyckEmitter *, long );
+ void syck_emit( SyckEmitter *, st_data_t );
+ void syck_emit_scalar( SyckEmitter *, char *, enum scalar_style, int, int, char, char *, long );
+--
+1.8.1.4
+
diff --git a/perl-YAML-Syck.spec b/perl-YAML-Syck.spec
index dc41b3b..98e9fe5 100644
--- a/perl-YAML-Syck.spec
+++ b/perl-YAML-Syck.spec
@@ -1,11 +1,12 @@
Name: perl-YAML-Syck
Version: 1.24
-Release: 1%{?dist}
+Release: 2%{?dist}
Summary: Fast, lightweight YAML loader and dumper
License: BSD and MIT
Group: Development/Libraries
URL: http://search.cpan.org/dist/YAML-Syck/
Source0: http://www.cpan.org/authors/id/T/TO/TODDR/YAML-Syck-%{version}.tar.gz
+Patch0: 0001-Recognize-all-wide-unicode-characters.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(id -nu)
# Keep bundled inc::Module::Install to break cycle perl-Modules-Install
# → perl-YAML-Tiny → perl-YAML-Syck.
@@ -41,6 +42,9 @@ structures to YAML strings, and the other way around.
%setup -q -n YAML-Syck-%{version}
rm -rf inc/parent inc/PerlIO.pm inc/Test
+# Work around test failures on PPC and ARM (#919806, CPAN RT#83825)
+%patch0 -p1
+
%build
perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS"
make %{?_smp_mflags}
@@ -67,11 +71,14 @@ rm -rf $RPM_BUILD_ROOT
%{_mandir}/man3/YAML::Syck.3pm*
%changelog
+* Sun Mar 10 2013 Paul Howarth <paul at city-fan.org> 1.24-2
+- Work around test failures on PPC and ARM (#919806, CPAN RT#83825)
+
* Thu Mar 7 2013 Paul Howarth <paul at city-fan.org> 1.24-1
- Update to 1.24
- Implement $JSON::Syck::MaxDepth
- Prevent failure when the same object is seen twice during Dump
- - Prevent YAML from being influnced by the previous change
+ - Prevent YAML from being influenced by the previous change
- MinGW64 compatibility (CPAN RT#78363)
* Wed Feb 27 2013 Paul Howarth <paul at city-fan.org> 1.23-1
More information about the scm-commits
mailing list