r40768 - in /branches/upstream/libdata-dump-perl/current: Changes META.yml lib/Data/Dump.pm t/dump.t

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

Author: jawnsy-guest
Date: Sun Jul 26 19:23:34 2009
New Revision: 40768

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40768
Log:
[svn-upgrade] Integrating new upstream version, libdata-dump-perl (1.15)

Modified:
    branches/upstream/libdata-dump-perl/current/Changes
    branches/upstream/libdata-dump-perl/current/META.yml
    branches/upstream/libdata-dump-perl/current/lib/Data/Dump.pm
    branches/upstream/libdata-dump-perl/current/t/dump.t

Modified: branches/upstream/libdata-dump-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-perl/current/Changes?rev=40768&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/Changes (original)
+++ branches/upstream/libdata-dump-perl/current/Changes Sun Jul 26 19:23:34 2009
@@ -1,3 +1,11 @@
+2009-07-26  Gisle Aas <gisle at ActiveState.com>
+
+   Release 1.15
+
+   Fixed regexp that determines if hash keys are numeric [RT#48003]
+
+
+
 2009-01-12  Gisle Aas <gisle at ActiveState.com>
 
    Release 1.14

Modified: branches/upstream/libdata-dump-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-perl/current/META.yml?rev=40768&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/META.yml (original)
+++ branches/upstream/libdata-dump-perl/current/META.yml Sun Jul 26 19:23:34 2009
@@ -1,18 +1,20 @@
 --- #YAML:1.0
 name:               Data-Dump
-version:            1.14
+version:            1.15
 abstract:           ~
 author:  []
 license:            unknown
 distribution_type:  module
 configure_requires:
     ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
 requires:  {}
 no_index:
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.4801
+generated_by:       ExtUtils::MakeMaker version 6.55_02
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libdata-dump-perl/current/lib/Data/Dump.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-perl/current/lib/Data/Dump.pm?rev=40768&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/lib/Data/Dump.pm (original)
+++ branches/upstream/libdata-dump-perl/current/lib/Data/Dump.pm Sun Jul 26 19:23:34 2009
@@ -9,7 +9,7 @@
 @EXPORT = qw(dd ddx);
 @EXPORT_OK = qw(dump pp quote);
 
-$VERSION = "1.14";
+$VERSION = "1.15";
 $DEBUG = 0;
 
 use overload ();
@@ -258,7 +258,7 @@
 	my @orig_keys = keys %$rval;
 	my $text_keys = 0;
 	for (@orig_keys) {
-	    $text_keys++, last unless $_ eq "0" || /^[-+]?[1-9]\d*(?:.\d+)?\z/;
+	    $text_keys++, last unless /^[-+]?(?:0|[1-9]\d*)(?:\.\d+)?\z/;
 	}
 
 	if ($text_keys) {

Modified: branches/upstream/libdata-dump-perl/current/t/dump.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-perl/current/t/dump.t?rev=40768&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/t/dump.t (original)
+++ branches/upstream/libdata-dump-perl/current/t/dump.t Sun Jul 26 19:23:34 2009
@@ -2,7 +2,7 @@
 
 use strict;
 use Test qw(plan ok);
-plan tests => 21;
+plan tests => 23;
 
 use Data::Dump qw(dump);
 
@@ -20,6 +20,8 @@
 ok(dump([1..5]), "[1, 2, 3, 4, 5]");
 ok(dump({ a => 1, b => 2 }), "{ a => 1, b => 2 }");
 ok(dump({ 1 => 1, 2 => 1, 10 => 1 }), "{ 1 => 1, 2 => 1, 10 => 1 }");
+ok(dump({ 0.14 => 1, 1.8 => 1, -0.5 => 1 }), qq({ "-0.5" => 1, "0.14" => 1, "1.8" => 1 }));
+ok(dump({ "1,1" => 1, "1,2" => 1 }), qq({ "1,1" => 1, "1,2" => 1 }));
 ok(dump({ a => 1, aa => 2, aaa => join("", "a" .. "z", "a" .. "z")}) . "\n", <<EOT);
 {
   a   => 1,