r75810 - in /trunk/libdata-serializer-perl: Changes META.yml debian/changelog debian/compat debian/control debian/copyright lib/Data/Serializer.pm lib/Data/Serializer/JSON.pm t/serializer-testlib
fabreg-guest at users.alioth.debian.org
fabreg-guest at users.alioth.debian.org
Wed Jun 15 22:07:20 UTC 2011
Author: fabreg-guest
Date: Wed Jun 15 22:07:16 2011
New Revision: 75810
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75810
Log:
Updated package
Modified:
trunk/libdata-serializer-perl/Changes
trunk/libdata-serializer-perl/META.yml
trunk/libdata-serializer-perl/debian/changelog
trunk/libdata-serializer-perl/debian/compat
trunk/libdata-serializer-perl/debian/control
trunk/libdata-serializer-perl/debian/copyright
trunk/libdata-serializer-perl/lib/Data/Serializer.pm
trunk/libdata-serializer-perl/lib/Data/Serializer/JSON.pm
trunk/libdata-serializer-perl/t/serializer-testlib
Modified: trunk/libdata-serializer-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-serializer-perl/Changes?rev=75810&op=diff
==============================================================================
--- trunk/libdata-serializer-perl/Changes (original)
+++ trunk/libdata-serializer-perl/Changes Wed Jun 15 22:07:16 2011
@@ -1,4 +1,9 @@
Revision history for Perl extension Data::Serializer
+
+0.57 Tue Jun 14 2011
+ - Added utf8 to the decode in the JSON deserializing code. Fixes https://rt.cpan.org/Public/Bug/Display.html?id=68125
+ Thanks to colink at perldreamer.com for finding the bug and supplying good tests and a suggested fix and to
+ lp at sunnyspot.org for the suggested ->utf8-> fix (which really was functionally identical to what colink recommended)
0.57 Mon Jan 17 2011
- Updated remainder of test suite to armor against XML::Simple dependency problems that I first
Modified: trunk/libdata-serializer-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-serializer-perl/META.yml?rev=75810&op=diff
==============================================================================
--- trunk/libdata-serializer-perl/META.yml (original)
+++ trunk/libdata-serializer-perl/META.yml Wed Jun 15 22:07:16 2011
@@ -17,7 +17,7 @@
provides:
Data::Serializer:
file: lib/Data/Serializer.pm
- version: 0.57
+ version: 0.58
Data::Serializer::Bencode:
file: lib/Data/Serializer/Bencode.pm
version: 0.03
@@ -47,7 +47,7 @@
version: 0.02
Data::Serializer::JSON:
file: lib/Data/Serializer/JSON.pm
- version: 0.03
+ version: 0.04
Data::Serializer::JSON::Syck:
file: lib/Data/Serializer/JSON/Syck.pm
version: 0.02
@@ -105,4 +105,4 @@
IO::File: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.57
+version: 0.58
Modified: trunk/libdata-serializer-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-serializer-perl/debian/changelog?rev=75810&op=diff
==============================================================================
--- trunk/libdata-serializer-perl/debian/changelog (original)
+++ trunk/libdata-serializer-perl/debian/changelog Wed Jun 15 22:07:16 2011
@@ -1,3 +1,17 @@
+libdata-serializer-perl (0.58-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Switch d/compat to 8.
+ * Bump to 3.9.2 Standard-Version.
+ * Switch to DEP5 license format.
+ * Add myself to Uploaders.
+ * Build-Depends: switch to debhelper (>= 8).
+
+
+
+
+ -- Fabrizio Regalli <fabreg at fabreg.it> Wed, 15 Jun 2011 23:37:36 +0200
+
libdata-serializer-perl (0.57-1) unstable; urgency=low
* New upstream release
Modified: trunk/libdata-serializer-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-serializer-perl/debian/compat?rev=75810&op=diff
==============================================================================
--- trunk/libdata-serializer-perl/debian/compat (original)
+++ trunk/libdata-serializer-perl/debian/compat Wed Jun 15 22:07:16 2011
@@ -1,1 +1,1 @@
-7
+8
Modified: trunk/libdata-serializer-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-serializer-perl/debian/control?rev=75810&op=diff
==============================================================================
--- trunk/libdata-serializer-perl/debian/control (original)
+++ trunk/libdata-serializer-perl/debian/control Wed Jun 15 22:07:16 2011
@@ -1,30 +1,53 @@
Source: libdata-serializer-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 8)
-Build-Depends-Indep: perl, libxml-dumper-perl, libdigest-sha-perl,
- libtest-pod-perl, libtest-pod-coverage-perl, libconfig-general-perl,
- libyaml-perl, libxml-simple-perl, libyaml-syck-perl, libjson-perl,
- libcompress-zlib-perl, libcrypt-cbc-perl, libcrypt-blowfish-perl,
- libfreezethaw-perl, libphp-serialization-perl, libdigest-sha1-perl,
- libtest-kwalitee-perl
+Build-Depends: debhelper (>= 8),
+ perl
+Build-Depends-Indep: libcompress-zlib-perl,
+ libconfig-general-perl,
+ libcrypt-blowfish-perl,
+ libcrypt-cbc-perl,
+ libdigest-sha-perl,
+ libdigest-sha1-perl,
+ libfreezethaw-perl,
+ libjson-perl,
+ libmodule-build-perl (>= 0.36),
+ libphp-serialization-perl,
+ libtest-kwalitee-perl,
+ libtest-pod-coverage-perl,
+ libtest-pod-perl,
+ libxml-dumper-perl,
+ libxml-simple-perl,
+ libyaml-perl,
+ libyaml-syck-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Krzysztof Krzyżaniak (eloy) <eloy at debian.org>,
Damyan Ivanov <dmn at debian.org>,
- gregor herrmann <gregoa at debian.org>, Rene Mayorga <rmayorga at debian.org>,
- Nicholas Bamber <nicholas at periapt.co.uk>
-Standards-Version: 3.9.1
+ gregor herrmann <gregoa at debian.org>,
+ Rene Mayorga <rmayorga at debian.org>,
+ Nicholas Bamber <nicholas at periapt.co.uk>,
+ Fabrizio Regalli <fabreg at fabreg.it>
+Standards-Version: 3.9.2
Homepage: http://search.cpan.org/dist/Data-Serializer/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdata-serializer-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdata-serializer-perl/
Package: libdata-serializer-perl
Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends}, libdigest-sha-perl
-Suggests: libxml-dumper-perl, libyaml-perl, libxml-simple-perl,
- libyaml-syck-perl, libjson-perl, libcompress-zlib-perl,
- libcrypt-cbc-perl, libcrypt-blowfish-perl, libfreezethaw-perl,
- libconfig-general-perl, libphp-serialization-perl, libdigest-sha1-perl
+Depends: ${misc:Depends}, ${perl:Depends},
+ libdigest-sha-perl
+Suggests: libcompress-zlib-perl,
+ libconfig-general-perl,
+ libcrypt-blowfish-perl,
+ libcrypt-cbc-perl,
+ libdigest-sha1-perl,
+ libfreezethaw-perl,
+ libjson-perl,
+ libphp-serialization-perl,
+ libxml-dumper-perl,
+ libxml-simple-perl,
+ libyaml-perl,
+ libyaml-syck-perl
Description: module that serializes data structures
Data::Serializer provides a unified interface to the various serializing
modules currently available. Adds the functionality of both compression
Modified: trunk/libdata-serializer-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-serializer-perl/debian/copyright?rev=75810&op=diff
==============================================================================
--- trunk/libdata-serializer-perl/debian/copyright (original)
+++ trunk/libdata-serializer-perl/debian/copyright Wed Jun 15 22:07:16 2011
@@ -7,22 +7,15 @@
Copyright: 2001-2011, Neil Neely (neil at neely.cx)
License: Artistic or GPL-1+
-Files: lib/Data/Serializer/YAML.pm
-Copyright: 2002, Florian Helmberger <fh at laudatio.com>
-License: Artistic or GPL-1+
-
-Files: lib/Data/Serializer/Config/General.pm
-Copyright: 2002, Thomas Linden <tom at daemon.de>
-License: Artistic or GPL-1+
-
Files: debian/*
-Copyright:
- 2007-2008, Damyan Ivanov <dmn at debian.org>
- 2007-2008, Gunnar Wolf <gwolf at debian.org>
- 2007-2009, Krzysztof Krzyżaniak (eloy) <eloy at debian.org>
- 2008, Rene Mayorga <rmayorga at debian.org>
+Copyright: 2007, 2008, Damyan Ivanov <dmn at debian.org>
+ 2007, 2008, Gunnar Wolf <gwolf at debian.org>
+ 2007, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+ 2008, Rene Mayorga <rmayorga at debian.org.sv>
2008, Roberto C. Sanchez <roberto at debian.org>
2008, gregor herrmann <gregoa at debian.org>
+ 2009, Krzysztof Krzyżaniak (eloy) <eloy at debian.org>
+ 2011, Fabrizio Regalli <fabreg at fabreg.it>
2011, Nicholas Bamber <nicholas at periapt.co.uk>
License: Artistic or GPL-1+
Modified: trunk/libdata-serializer-perl/lib/Data/Serializer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-serializer-perl/lib/Data/Serializer.pm?rev=75810&op=diff
==============================================================================
--- trunk/libdata-serializer-perl/lib/Data/Serializer.pm (original)
+++ trunk/libdata-serializer-perl/lib/Data/Serializer.pm Wed Jun 15 22:07:16 2011
@@ -7,7 +7,7 @@
use Carp;
require 5.004 ;
-$VERSION = '0.57';
+$VERSION = '0.58';
#Global cache of modules we've loaded
my %_MODULES;
Modified: trunk/libdata-serializer-perl/lib/Data/Serializer/JSON.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-serializer-perl/lib/Data/Serializer/JSON.pm?rev=75810&op=diff
==============================================================================
--- trunk/libdata-serializer-perl/lib/Data/Serializer/JSON.pm (original)
+++ trunk/libdata-serializer-perl/lib/Data/Serializer/JSON.pm Wed Jun 15 22:07:16 2011
@@ -6,7 +6,7 @@
use JSON;
use vars qw($VERSION @ISA);
-$VERSION = '0.03';
+$VERSION = '0.04';
sub serialize {
return JSON->VERSION < 2 ? JSON->new->objToJson($_[1]) : JSON->new->utf8->encode($_[1]);
@@ -14,7 +14,7 @@
sub deserialize {
#return JSON->VERSION < 2 ? JSON->new->jsonToObj($_[1]) : JSON->new->decode($_[1]);
- $_[1] and return JSON->VERSION < 2 ? JSON->new->jsonToObj($_[1]) : JSON->new->decode($_[1]);
+ $_[1] and return JSON->VERSION < 2 ? JSON->new->jsonToObj($_[1]) : JSON->new->utf8->decode($_[1]);
}
1;
Modified: trunk/libdata-serializer-perl/t/serializer-testlib
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-serializer-perl/t/serializer-testlib?rev=75810&op=diff
==============================================================================
--- trunk/libdata-serializer-perl/t/serializer-testlib (original)
+++ trunk/libdata-serializer-perl/t/serializer-testlib Wed Jun 15 22:07:16 2011
@@ -1,4 +1,5 @@
package My::TestObj;
+#use utf8;
#Need to play nice on different Filesystems!
@@ -37,6 +38,7 @@
complexarray => 2,
selfrefarray => 1,
simplehash => 1,
+ utf8hash => 2,
complexhash => 3,
selfrefhash => 1,
);
@@ -50,7 +52,6 @@
simplescalarref => \'pointless',
simplehash => { alpha => 1,
beta => 2 },
-
simplearray => [qw ( one two three ) ],
@@ -74,6 +75,12 @@
},
);
+{
+ $testrefs{utf8hash} = { alpha => q|“water†and “roadâ€|,
+ beta => q|mañana| };
+}
+
+
$testrefs{selfrefhash}->{pear} = $testrefs{selfrefhash}->{apple};
$testrefs{selfrefarray}->[3] = $testrefs{selfrefarray}->[1];
@@ -88,6 +95,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -98,6 +106,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -110,6 +119,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -122,6 +132,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -134,6 +145,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -144,6 +156,7 @@
complexarray => 0,
selfrefarray => 0,
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -156,6 +169,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -168,6 +182,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -180,6 +195,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -191,6 +207,7 @@
simplearray => $counts{simplearray},
complexarray => $counts{complexarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
#selfrefarray => $counts{selfrefarray},
#selfrefhash => $counts{selfrefhash},
@@ -206,6 +223,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => 0, #Chokes on UTF8
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -216,6 +234,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -226,6 +245,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -238,6 +258,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -250,6 +271,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -262,6 +284,7 @@
complexarray => $counts{complexarray},
selfrefarray => $counts{selfrefarray},
simplehash => $counts{simplehash},
+ utf8hash => $counts{utf8hash},
complexhash => $counts{complexhash},
selfrefhash => $counts{selfrefhash},
},
@@ -409,6 +432,9 @@
$T->ok_eqnum($testrefs{$test}->[1]->{alpha}, $thawed->[1]->{alpha},'array of hashes');
} elsif ($test eq 'simplehash') {
$T->ok_eqnum($testrefs{$test}->{alpha}, $thawed->{alpha},'hash');
+ } elsif ($test eq 'utf8hash') {
+ $T->ok_eq($testrefs{$test}->{alpha}, $thawed->{alpha},'utf8 hash');
+ $T->ok_eq($testrefs{$test}->{beta}, $thawed->{beta},'utf8 hash 2');
} elsif ($test eq 'complexhash') {
$T->ok_eq($testrefs{$test}->{apple}->[1], $thawed->{apple}->[1],'hash of arrays');
$T->ok_eqnum($testrefs{$test}->{orange}->{alpha}, $thawed->{orange}->{alpha},'hash of hashes');
More information about the Pkg-perl-cvs-commits
mailing list