r63973 - in /branches/upstream/libdata-dump-perl/current: Changes MANIFEST META.yml lib/Data/Dump.pm lib/Data/Dump/Filtered.pm t/quote-unicode.t t/regexp.t t/vstring.t
jotamjr-guest at users.alioth.debian.org
jotamjr-guest at users.alioth.debian.org
Tue Oct 19 05:08:26 UTC 2010
Author: jotamjr-guest
Date: Tue Oct 19 05:05:50 2010
New Revision: 63973
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63973
Log:
[svn-upgrade] new version libdata-dump-perl (1.18)
Added:
branches/upstream/libdata-dump-perl/current/t/vstring.t
Modified:
branches/upstream/libdata-dump-perl/current/Changes
branches/upstream/libdata-dump-perl/current/MANIFEST
branches/upstream/libdata-dump-perl/current/META.yml
branches/upstream/libdata-dump-perl/current/lib/Data/Dump.pm
branches/upstream/libdata-dump-perl/current/lib/Data/Dump/Filtered.pm
branches/upstream/libdata-dump-perl/current/t/quote-unicode.t
branches/upstream/libdata-dump-perl/current/t/regexp.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=63973&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/Changes (original)
+++ branches/upstream/libdata-dump-perl/current/Changes Tue Oct 19 05:05:50 2010
@@ -1,3 +1,15 @@
+2010-10-18 Gisle Aas <gisle at ActiveState.com>
+
+ Release 1.18
+
+ Don't downgrade is_utf8-strings with MIME::Base64 [RT#60103]
+
+ Deal with the perl-5.13 (?^:...) regex construct [RT#61552]
+
+ croak on bad add_dump_filter argument
+
+
+
2010-06-12 Gisle Aas <gisle at ActiveState.com>
Release 1.17
@@ -9,7 +21,7 @@
CODE references now dumped as 'sub { ... }'.
Potetential compatibility issue as perl-5.12 or better
- to eval such strings.
+ is needed to eval such strings.
Fix how multiline hash values are indented.
Modified: branches/upstream/libdata-dump-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-perl/current/MANIFEST?rev=63973&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/MANIFEST (original)
+++ branches/upstream/libdata-dump-perl/current/MANIFEST Tue Oct 19 05:05:50 2010
@@ -19,4 +19,5 @@
t/scalar-obj.t
t/scalar.t
t/tied.t
+t/vstring.t
META.yml Module meta-data (added by MakeMaker)
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=63973&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/META.yml (original)
+++ branches/upstream/libdata-dump-perl/current/META.yml Tue Oct 19 05:05:50 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Data-Dump
-version: 1.17
+version: 1.18
abstract: Pretty printing of data structures
author:
- Gisle Aas <gisle at activestate.com>
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=63973&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/lib/Data/Dump.pm (original)
+++ branches/upstream/libdata-dump-perl/current/lib/Data/Dump.pm Tue Oct 19 05:05:50 2010
@@ -9,7 +9,7 @@
@EXPORT = qw(dd ddx);
@EXPORT_OK = qw(dump pp dumpf quote);
-$VERSION = "1.17";
+$VERSION = "1.18";
$DEBUG = 0;
use overload ();
@@ -192,7 +192,7 @@
my $v = "$rval";
my $mod = "";
- if ($v =~ /^\(\?([msix-]+):([\x00-\xFF]*)\)\z/) {
+ if ($v =~ /^\(\?\^?([msix-]*):([\x00-\xFF]*)\)\z/) {
$mod = $1;
$v = $2;
$mod =~ s/-.*//;
@@ -363,6 +363,9 @@
}
elsif ($type eq "CODE") {
$out = 'sub { ... }';
+ }
+ elsif ($type eq "VSTRING") {
+ $out = sprintf +($ref ? '\v%vd' : 'v%vd'), $$rval;
}
else {
warn "Can't handle $type data";
@@ -501,6 +504,7 @@
# 17 bytes (not counting any require statement needed).
# But on the other hand, hex is much more readable.
if ($TRY_BASE64 && length($_[0]) > $TRY_BASE64 &&
+ (defined &utf8::is_utf8 && !utf8::is_utf8($_[0])) &&
eval { require MIME::Base64 })
{
$require{"MIME::Base64"}++;
Modified: branches/upstream/libdata-dump-perl/current/lib/Data/Dump/Filtered.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-perl/current/lib/Data/Dump/Filtered.pm?rev=63973&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/lib/Data/Dump/Filtered.pm (original)
+++ branches/upstream/libdata-dump-perl/current/lib/Data/Dump/Filtered.pm Tue Oct 19 05:05:50 2010
@@ -8,7 +8,9 @@
sub add_dump_filter {
my $filter = shift;
- die unless ref($filter) eq "CODE";
+ unless (ref($filter) eq "CODE") {
+ Carp::croak("add_dump_filter argument must be a code reference");
+ }
push(@Data::Dump::FILTERS, $filter);
return $filter;
}
Modified: branches/upstream/libdata-dump-perl/current/t/quote-unicode.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-perl/current/t/quote-unicode.t?rev=63973&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/t/quote-unicode.t (original)
+++ branches/upstream/libdata-dump-perl/current/t/quote-unicode.t Tue Oct 19 05:05:50 2010
@@ -10,7 +10,7 @@
use strict;
use Test qw(plan ok);
-plan tests => 5;
+plan tests => 8;
use Data::Dump qw(dump);
@@ -19,3 +19,11 @@
ok(dump(join("", map chr($_), 400 .. 500)), qq("\\x{190}\\x{191}\\x{192}\\x{193}\\x{194}\\x{195}\\x{196}\\x{197}\\x{198}\\x{199}\\x{19A}\\x{19B}\\x{19C}\\x{19D}\\x{19E}\\x{19F}\\x{1A0}\\x{1A1}\\x{1A2}\\x{1A3}\\x{1A4}\\x{1A5}\\x{1A6}\\x{1A7}\\x{1A8}\\x{1A9}\\x{1AA}\\x{1AB}\\x{1AC}\\x{1AD}\\x{1AE}\\x{1AF}\\x{1B0}\\x{1B1}\\x{1B2}\\x{1B3}\\x{1B4}\\x{1B5}\\x{1B6}\\x{1B7}\\x{1B8}\\x{1B9}\\x{1BA}\\x{1BB}\\x{1BC}\\x{1BD}\\x{1BE}\\x{1BF}\\x{1C0}\\x{1C1}\\x{1C2}\\x{1C3}\\x{1C4}\\x{1C5}\\x{1C6}\\x{1C7}\\x{1C8}\\x{1C9}\\x{1CA}\\x{1CB}\\x{1CC}\\x{1CD}\\x{1CE}\\x{1CF}\\x{1D0}\\x{1D1}\\x{1D2}\\x{1D3}\\x{1D4}\\x{1D5}\\x{1D6}\\x{1D7}\\x{1D8}\\x{1D9}\\x{1DA}\\x{1DB}\\x{1DC}\\x{1DD}\\x{1DE}\\x{1DF}\\x{1E0}\\x{1E1}\\x{1E2}\\x{1E3}\\x{1E4}\\x{1E5}\\x{1E6}\\x{1E7}\\x{1E8}\\x{1E9}\\x{1EA}\\x{1EB}\\x{1EC}\\x{1ED}\\x{1EE}\\x{1EF}\\x{1F0}\\x{1F1}\\x{1F2}\\x{1F3}\\x{1F4}"));
ok(dump("\x{1_00FF}"), qq("\\x{100FF}"));
ok(dump("\x{FFF}\x{1_00FF}" x 30), qq(("\\x{FFF}\\x{100FF}" x 30)));
+
+# Ensure that displaying long upgraded string does not downgrade
+$a = "";
+$a .= chr($_) for 128 .. 255;
+$a .= "\x{FFF}"; chop($a); # upgrade
+ok(utf8::is_utf8($a));
+ok(dump($a), 'pack("H*","' . join('', map sprintf("%02x", $_), 128..255). '")');
+ok(utf8::is_utf8($a));
Modified: branches/upstream/libdata-dump-perl/current/t/regexp.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-perl/current/t/regexp.t?rev=63973&op=diff
==============================================================================
--- branches/upstream/libdata-dump-perl/current/t/regexp.t (original)
+++ branches/upstream/libdata-dump-perl/current/t/regexp.t Tue Oct 19 05:05:50 2010
@@ -1,6 +1,7 @@
#!perl -w
-print "1..1\n";
+use Test;
+plan tests => 1;
use Data::Dump;
@@ -19,7 +20,7 @@
i => qr*/|,:#*,
};
-print "not " unless Data::Dump::dump($a) . "\n" eq <<'EOT'; print "ok 1\n";
+ok(Data::Dump::dump($a) . "\n", <<'EOT');
{
a => qr/Foo/,
b => qr|abc/|si,
@@ -35,5 +36,3 @@
i => qr/\/|,:#/,
}
EOT
-
-#print Data::Dump::dump($a), "\n";
Added: branches/upstream/libdata-dump-perl/current/t/vstring.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-perl/current/t/vstring.t?rev=63973&op=file
==============================================================================
--- branches/upstream/libdata-dump-perl/current/t/vstring.t (added)
+++ branches/upstream/libdata-dump-perl/current/t/vstring.t Tue Oct 19 05:05:50 2010
@@ -1,0 +1,18 @@
+#!perl -w
+
+use strict;
+use Test;
+plan tests => 9;
+
+use Data::Dump 'dump';
+
+ok(dump(v10), q{v10});
+ok(dump(v5.10.1), q{v5.10.1});
+ok(dump(5.10.1), q{v5.10.1});
+ok(dump(500.400.300.200.100), q{v500.400.300.200.100});
+
+ok(dump(\5.10.1), q{\v5.10.1});
+ok(dump(\v10), q{\v10});
+ok(dump(\\v10), q{\\\\v10});
+ok(dump([v10, v20, v30]), q{[v10, v20, v30]});
+ok(dump({ version => v6.0.0 }), q({ version => v6.0.0 }));
More information about the Pkg-perl-cvs-commits
mailing list