r59628 - in /branches/upstream/libdata-dump-streamer-perl/current: Changes META.yml lib/Data/Dump/Streamer.pm t/madness.t

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sun Jun 20 21:58:31 2010
New Revision: 59628

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59628
Log:
[svn-upgrade] new version libdata-dump-streamer-perl (2.21)

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

Modified: branches/upstream/libdata-dump-streamer-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-streamer-perl/current/Changes?rev=59628&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/Changes (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/Changes Sun Jun 20 21:58:31 2010
@@ -1,3 +1,15 @@
+2.21 (2010-06-19)
+
+Resynchronize internal VERSION declarations.
+
+Skipped v2.20 because it some of the build code was truncating it to
+v2.2 and breaking
+
+2.19 (2010-06-19)
+
+Tweak t/madness.t to deal with how perl-5.8.[0-8] deparses the pragma
+`use warnings' differently.
+
 2.18 (2010-06-12)
 
 Continue to refine t/lexicals.t response to Perl commit

Modified: branches/upstream/libdata-dump-streamer-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-streamer-perl/current/META.yml?rev=59628&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/META.yml (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/META.yml Sun Jun 20 21:58:31 2010
@@ -31,10 +31,10 @@
 provides:
   Data::Dump::Streamer:
     file: lib/Data/Dump/Streamer.pm
-    version: 2.18
+    version: 2.21
   Data::Dump::Streamer::Deparser:
     file: lib/Data/Dump/Streamer.pm
-    version: 2.18
+    version: 2.21
 recommends:
   Algorithm::Diff: 0
   Compress::Zlib: 0
@@ -60,4 +60,4 @@
   warnings::register: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: 2.18
+version: 2.21

Modified: branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm?rev=59628&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm Sun Jun 20 21:58:31 2010
@@ -34,7 +34,7 @@
 
 BEGIN {
     #$Id: Streamer.pm 40 2007-12-22 00:37:55Z demerphq $#
-    $VERSION   ='2.18';
+    $VERSION   ='2.21';
     $VERSION = eval $VERSION; # used for beta stuff.
     @ISA       = qw(Exporter DynaLoader);
     @EXPORT=qw(Dump DumpLex DumpVars);
@@ -3669,7 +3669,7 @@
 our @ISA=qw(B::Deparse);
 my %cache;
 
-our $VERSION = '2.18';
+our $VERSION = '2.21';
 if ( $VERSION ne $Data::Dump::Streamer::VERSION ) {
     die "Incompatible Data::Dump::Streamer::Deparser v$VERSION vs Data::Dump::Streamer v$Data::Dump::Streamer::VERSION";
 }

Modified: branches/upstream/libdata-dump-streamer-perl/current/t/madness.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-streamer-perl/current/t/madness.t?rev=59628&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/t/madness.t (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/t/madness.t Sun Jun 20 21:58:31 2010
@@ -271,7 +271,7 @@
          };
 EXPECT
     }
-    else {
+    elsif ( $] >= 5.008_008 ) {
         same( $dump= $o->Data(\%hash)->Out, <<'EXPECT', "", $o);
 $HASH1 = {
            AR  => [
@@ -304,6 +304,39 @@
          };
 EXPECT
     }
+    else {
+        same( $dump= $o->Data(\%hash)->Out, <<'EXPECT', "", $o);
+$HASH1 = {
+           AR  => [
+                    1,
+                    2
+                  ],
+           CR  => sub {
+                    BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU\001"}
+                    use strict 'refs';
+                    'code';
+                  },
+           FMT => \do{ local *F; my $F=<<'_EOF_FORMAT_'; $F=~s/^\s+# //mg; eval $F; die $F.$@ if $@; *F{FORMAT};
+                  # format F =
+                  # @<<<<<<   @││││││   @>>>>>>
+                  # 'left', 'middle', 'right'
+                  # .
+_EOF_FORMAT_
+                  },
+           GLB => *::STDERR,
+           HR  => { key => 'value' },
+           IO  => bless( *{Symbol::gensym()}{IO}, 'IO::Handle' ),
+           IV  => 1,
+           NV  => 3.14159265358979,
+           OBJ => bless( qr/("[^"]+")/, 'Zorp' ),
+           PV  => 'string',
+           PV8 => "ab\ncd\x{20ac}\t",
+           PVM => '',
+           RV  => \do { my $v = undef },
+           UND => undef
+         };
+EXPECT
+    }
 }
 __END__