r68091 - in /branches/upstream/libdata-dump-streamer-perl/current: Changes META.yml inc/My/Builder.pm lib/Data/Dump/Streamer.pm t/dump.t t/madness.t
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Wed Feb 2 08:25:49 UTC 2011
Author: angelabad-guest
Date: Wed Feb 2 08:25:11 2011
New Revision: 68091
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68091
Log:
[svn-upgrade] new version libdata-dump-streamer-perl (2.29)
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/inc/My/Builder.pm
branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.pm
branches/upstream/libdata-dump-streamer-perl/current/t/dump.t
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=68091&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/Changes (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/Changes Wed Feb 2 08:25:11 2011
@@ -1,3 +1,13 @@
+2.29
+Add .answer to .gitignore
+Update t/madness for perl-5.6
+Syntax fix print() for perl-5.6
+Correct ${^WARNING_BITS} in t/madness.t for perl-5.8.7 and earlier
+
+2.28
+Strip illegal regexp modifiers [RT #65355]
+Update file permissions
+
2.27
Test for new regexp /u flag [RT #65339]
Import less private functions
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=68091&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/META.yml (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/META.yml Wed Feb 2 08:25:11 2011
@@ -31,10 +31,10 @@
provides:
Data::Dump::Streamer:
file: lib/Data/Dump/Streamer.pm
- version: 2.27
+ version: 2.29
Data::Dump::Streamer::Deparser:
file: lib/Data/Dump/Streamer.pm
- version: 2.27
+ version: 2.29
recommends:
Algorithm::Diff: 0
Compress::Zlib: 0
@@ -60,4 +60,4 @@
warnings::register: 0
resources:
license: http://dev.perl.org/licenses/
-version: 2.27
+version: 2.29
Modified: branches/upstream/libdata-dump-streamer-perl/current/inc/My/Builder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-streamer-perl/current/inc/My/Builder.pm?rev=68091&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/inc/My/Builder.pm (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/inc/My/Builder.pm Wed Feb 2 08:25:11 2011
@@ -78,7 +78,7 @@
print "I will also install DDS as an alias.\n";
open my $ofh, ">", "./lib/DDS.pm"
or die "Failed to open ./lib/DDS.pm: $!";
- print $ofh DDS();
+ print { $ofh } DDS();
close $ofh;
$self->add_to_cleanup( './lib/DDS.pm' );
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=68091&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 Wed Feb 2 08:25:11 2011
@@ -35,7 +35,7 @@
BEGIN{ $HasPadWalker=eval "use PadWalker 0.99; 1"; }
BEGIN {
- $VERSION ='2.27';
+ $VERSION ='2.29';
$VERSION = eval $VERSION; # used for beta stuff.
@ISA = qw(Exporter DynaLoader);
@EXPORT=qw(Dump DumpLex DumpVars);
@@ -124,7 +124,35 @@
#warn $VERSION;
Data::Dump::Streamer->bootstrap();
- if ($]>=5.009004) {
+ if ($]>=5.013010) {
+ # As I write this, 5.13.10 doesn't exist so I'm guessing that
+ # we can begin using the ordinary core function again.
+ eval q[
+ use re qw(regexp_pattern);
+ *regex= *regexp_pattern;
+ ] or die $@;
+ }
+ elsif ($]>=5.013006) {
+ # Perl-5.13.6 through perl-5.13.9 began returning modifier
+ # flags that weren't yet legal at the time.
+ eval q[
+ use re qw(regexp_pattern);
+ sub regex {
+ if (wantarray) {
+ my ($pat,$mod) = regexp_pattern($_[0]);
+ if ($mod) {
+ $mod =~ tr/dlua?//d;
+ }
+ return ($pat,$mod);
+ }
+ else {
+ return scalar regexp_pattern($_[0]);
+ }
+ }
+ 1;
+ ] or die $@;
+ }
+ elsif ($]>=5.009004) {
eval q[
use re qw(regexp_pattern);
*regex= *regexp_pattern;
@@ -3677,7 +3705,7 @@
our @ISA=qw(B::Deparse);
my %cache;
-our $VERSION = '2.27';
+our $VERSION = '2.29';
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/dump.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-streamer-perl/current/t/dump.t?rev=68091&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/t/dump.t (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/t/dump.t Wed Feb 2 08:25:11 2011
@@ -401,7 +401,7 @@
EXPECT
}
{
- my $expect = $] >= 5.013_008 ? <<'U_FLAG' : <<'NO_U_FLAG';
+ my $expect = $] >= 5.013_010 ? <<'U_FLAG' : <<'NO_U_FLAG';
$VAR1 = "This contains unicode: /\x{263a}/";
$Regexp1 = qr!This contains unicode: /\x{263a}/!u;
U_FLAG
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=68091&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/t/madness.t (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/t/madness.t Wed Feb 2 08:25:11 2011
@@ -304,7 +304,7 @@
};
EXPECT
}
- else {
+ elsif ( $] >= 5.008_000 ) {
same( $dump= $o->Data(\%hash)->Out, <<'EXPECT', "", $o);
$HASH1 = {
AR => [
@@ -312,7 +312,7 @@
2
],
CR => sub {
- BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU\001"}
+ BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU"}
use strict 'refs';
'code';
},
@@ -337,6 +337,31 @@
};
EXPECT
}
+ else {
+ same( $dump= $o->Data(\%hash)->Out, <<'EXPECT', "", $o);
+$HASH1 = {
+ AR => [
+ 1,
+ 2
+ ],
+ CR => sub {
+ 'code';
+ },
+ FMT => \do { my $v = undef },
+ 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__
More information about the Pkg-perl-cvs-commits
mailing list