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