r63975 - in /trunk/libdata-dump-perl: Changes MANIFEST META.yml debian/changelog 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:33:41 UTC 2010
Author: jotamjr-guest
Date: Tue Oct 19 05:33:20 2010
New Revision: 63975
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63975
Log:
New upstream release
Added:
trunk/libdata-dump-perl/t/vstring.t
- copied unchanged from r63974, branches/upstream/libdata-dump-perl/current/t/vstring.t
Modified:
trunk/libdata-dump-perl/Changes
trunk/libdata-dump-perl/MANIFEST
trunk/libdata-dump-perl/META.yml
trunk/libdata-dump-perl/debian/changelog
trunk/libdata-dump-perl/lib/Data/Dump.pm
trunk/libdata-dump-perl/lib/Data/Dump/Filtered.pm
trunk/libdata-dump-perl/t/quote-unicode.t
trunk/libdata-dump-perl/t/regexp.t
Modified: trunk/libdata-dump-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-perl/Changes?rev=63975&op=diff
==============================================================================
--- trunk/libdata-dump-perl/Changes (original)
+++ trunk/libdata-dump-perl/Changes Tue Oct 19 05:33:20 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: trunk/libdata-dump-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-perl/MANIFEST?rev=63975&op=diff
==============================================================================
--- trunk/libdata-dump-perl/MANIFEST (original)
+++ trunk/libdata-dump-perl/MANIFEST Tue Oct 19 05:33:20 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: trunk/libdata-dump-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-perl/META.yml?rev=63975&op=diff
==============================================================================
--- trunk/libdata-dump-perl/META.yml (original)
+++ trunk/libdata-dump-perl/META.yml Tue Oct 19 05:33:20 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: trunk/libdata-dump-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-perl/debian/changelog?rev=63975&op=diff
==============================================================================
--- trunk/libdata-dump-perl/debian/changelog (original)
+++ trunk/libdata-dump-perl/debian/changelog Tue Oct 19 05:33:20 2010
@@ -1,3 +1,10 @@
+libdata-dump-perl (1.18-1) UNRELEASED; urgency=low
+
+ [ Jotam Jr. Trejo ]
+ * New upstream release
+
+ -- Jotam Jr. Trejo <jotamjr at debian.org.sv> Mon, 18 Oct 2010 23:17:11 -0600
+
libdata-dump-perl (1.17-1) unstable; urgency=low
[ Krzysztof Krzyżaniak (eloy) ]
Modified: trunk/libdata-dump-perl/lib/Data/Dump.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-perl/lib/Data/Dump.pm?rev=63975&op=diff
==============================================================================
--- trunk/libdata-dump-perl/lib/Data/Dump.pm (original)
+++ trunk/libdata-dump-perl/lib/Data/Dump.pm Tue Oct 19 05:33:20 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: trunk/libdata-dump-perl/lib/Data/Dump/Filtered.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-perl/lib/Data/Dump/Filtered.pm?rev=63975&op=diff
==============================================================================
--- trunk/libdata-dump-perl/lib/Data/Dump/Filtered.pm (original)
+++ trunk/libdata-dump-perl/lib/Data/Dump/Filtered.pm Tue Oct 19 05:33:20 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: trunk/libdata-dump-perl/t/quote-unicode.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-perl/t/quote-unicode.t?rev=63975&op=diff
==============================================================================
--- trunk/libdata-dump-perl/t/quote-unicode.t (original)
+++ trunk/libdata-dump-perl/t/quote-unicode.t Tue Oct 19 05:33:20 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: trunk/libdata-dump-perl/t/regexp.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdata-dump-perl/t/regexp.t?rev=63975&op=diff
==============================================================================
--- trunk/libdata-dump-perl/t/regexp.t (original)
+++ trunk/libdata-dump-perl/t/regexp.t Tue Oct 19 05:33:20 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";
More information about the Pkg-perl-cvs-commits
mailing list