r54573 - in /branches/upstream/libphp-serialization-perl/current: Changes MANIFEST META.yml lib/PHP/Serialization.pm sort_hashes.patch t/10intRT48594.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Fri Mar 19 17:09:55 2010
New Revision: 54573

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54573
Log:
[svn-upgrade] Integrating new upstream version, libphp-serialization-perl (0.34)

Added:
    branches/upstream/libphp-serialization-perl/current/t/10intRT48594.t
Removed:
    branches/upstream/libphp-serialization-perl/current/sort_hashes.patch
Modified:
    branches/upstream/libphp-serialization-perl/current/Changes
    branches/upstream/libphp-serialization-perl/current/MANIFEST
    branches/upstream/libphp-serialization-perl/current/META.yml
    branches/upstream/libphp-serialization-perl/current/lib/PHP/Serialization.pm

Modified: branches/upstream/libphp-serialization-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libphp-serialization-perl/current/Changes?rev=54573&op=diff
==============================================================================
--- branches/upstream/libphp-serialization-perl/current/Changes (original)
+++ branches/upstream/libphp-serialization-perl/current/Changes Fri Mar 19 17:09:55 2010
@@ -1,4 +1,8 @@
 Revision history for Perl extension PHP::Serialization
+
+0.34  2010-03-18
+ - Fix keys and values like '010' being serialized as strings as expected
+   rather than being turned into ints. (RT#48594)
 
 0.33  2009-07-14
  - Added ability to store the order of the keys on decoding

Modified: branches/upstream/libphp-serialization-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libphp-serialization-perl/current/MANIFEST?rev=54573&op=diff
==============================================================================
--- branches/upstream/libphp-serialization-perl/current/MANIFEST (original)
+++ branches/upstream/libphp-serialization-perl/current/MANIFEST Fri Mar 19 17:09:55 2010
@@ -3,7 +3,6 @@
 Makefile.PL
 MANIFEST			This list of files
 README
-sort_hashes.patch
 t/01use.t
 t/02basic.t
 t/03largeints.t
@@ -13,4 +12,5 @@
 t/07croak.t
 t/08incompletestringRT44700.t
 t/09floatindexRT42029.t
+t/10intRT48594.t
 META.yml                                 Module meta-data (added by MakeMaker)

Modified: branches/upstream/libphp-serialization-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libphp-serialization-perl/current/META.yml?rev=54573&op=diff
==============================================================================
--- branches/upstream/libphp-serialization-perl/current/META.yml (original)
+++ branches/upstream/libphp-serialization-perl/current/META.yml Fri Mar 19 17:09:55 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               PHP-Serialization
-version:            0.33
+version:            0.34
 abstract:           simple flexible means of converting the output of PHP's serialize() into the equivalent Perl memory structure, and vice versa.
 author:
     - Jesse Brown <jbrown at cpan.org>
@@ -15,7 +15,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.50
+generated_by:       ExtUtils::MakeMaker version 6.54
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libphp-serialization-perl/current/lib/PHP/Serialization.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libphp-serialization-perl/current/lib/PHP/Serialization.pm?rev=54573&op=diff
==============================================================================
--- branches/upstream/libphp-serialization-perl/current/lib/PHP/Serialization.pm (original)
+++ branches/upstream/libphp-serialization-perl/current/lib/PHP/Serialization.pm Fri Mar 19 17:09:55 2010
@@ -8,7 +8,7 @@
 
 use vars qw/$VERSION @ISA @EXPORT_OK/;
 
-$VERSION = '0.33';
+$VERSION = '0.34';
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(unserialize serialize);
@@ -377,7 +377,7 @@
         return $self->_encode('obj', $val);
     }
     elsif ( ! ref($val) ) {
-        if ( $val =~ /^-?\d{1,10}$/ && abs($val) < 2**31 ) {
+        if ( $val =~ /^-?(?:[0-9]|[1-9]\d{1,10})$/ && abs($val) < 2**31 ) {
             return $self->_encode('int', $val);
         }
         elsif ( $val =~ /^-?\d+\.\d*$/ && !$iskey) {

Added: branches/upstream/libphp-serialization-perl/current/t/10intRT48594.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libphp-serialization-perl/current/t/10intRT48594.t?rev=54573&op=file
==============================================================================
--- branches/upstream/libphp-serialization-perl/current/t/10intRT48594.t (added)
+++ branches/upstream/libphp-serialization-perl/current/t/10intRT48594.t Fri Mar 19 17:09:55 2010
@@ -1,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use PHP::Serialization;
+use Test::More tests => 2;
+
+my $a = {'020' => '001'};
+my $str = PHP::Serialization::serialize( $a );
+is($str,'a:1:{s:3:"020";s:3:"001";}', 'Keys and vals are string for 0 prefixed numbers');
+
+my $b = {'0' => '0'};
+$str = PHP::Serialization::serialize( $b );
+is($str,'a:1:{i:0;i:0;}', 'Keys and vals are ints for 0');
+