r68087 - in /branches/upstream/libdata-dump-streamer-perl/current: Changes META.yml lib/Data/Dump/Streamer.pm lib/Data/Dump/Streamer.xs t/dump.t
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Tue Feb 1 20:57:26 UTC 2011
Author: angelabad-guest
Date: Tue Feb 1 20:56:59 2011
New Revision: 68087
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68087
Log:
[svn-upgrade] new version libdata-dump-streamer-perl (2.27)
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/lib/Data/Dump/Streamer.xs
branches/upstream/libdata-dump-streamer-perl/current/t/dump.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=68087&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/Changes (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/Changes Tue Feb 1 20:56:59 2011
@@ -1,3 +1,8 @@
+2.27
+Test for new regexp /u flag [RT #65339]
+Import less private functions
+Removed obsolete svn version info
+
2.26
Keep a glob reference open while inspecting through it with B. [RT #65272]
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=68087&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/META.yml (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/META.yml Tue Feb 1 20:56:59 2011
@@ -31,10 +31,10 @@
provides:
Data::Dump::Streamer:
file: lib/Data/Dump/Streamer.pm
- version: 2.26
+ version: 2.27
Data::Dump::Streamer::Deparser:
file: lib/Data/Dump/Streamer.pm
- version: 2.26
+ version: 2.27
recommends:
Algorithm::Diff: 0
Compress::Zlib: 0
@@ -60,4 +60,4 @@
warnings::register: 0
resources:
license: http://dev.perl.org/licenses/
-version: 2.26
+version: 2.27
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=68087&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 Tue Feb 1 20:56:59 2011
@@ -1,23 +1,25 @@
package Data::Dump::Streamer;
use strict;
use warnings;
-use Exporter;
-use DynaLoader;
-use Text::Balanced qw(extract_bracketed);
-use B::Deparse;
-use B qw(svref_2object);
-use B::Utils qw(walkoptree_filtered opgrep);
-use IO::File;
-
+
+use B ();
+use B::Deparse ();
+use B::Utils ();
use Data::Dumper ();
+use DynaLoader ();
+use Exporter ();
+use IO::File ();
+use Symbol ();
+use Text::Abbrev ();
+use Text::Balanced ();
+use overload ();
+
use Data::Dump::Streamer::_::Printers;
-use Symbol;
-use Text::Abbrev qw(abbrev);
+
# use overload qw("" printit); # does diabolical stuff.
use warnings;
use warnings::register;
-require overload;
use vars qw(
$VERSION
$AUTOLOAD
@@ -33,8 +35,7 @@
BEGIN{ $HasPadWalker=eval "use PadWalker 0.99; 1"; }
BEGIN {
- #$Id: Streamer.pm 40 2007-12-22 00:37:55Z demerphq $#
- $VERSION ='2.26';
+ $VERSION ='2.27';
$VERSION = eval $VERSION; # used for beta stuff.
@ISA = qw(Exporter DynaLoader);
@EXPORT=qw(Dump DumpLex DumpVars);
@@ -904,7 +905,7 @@
($sigil,$brace)=($1,$var)
} else {
local $@;
- ($brace,$rest,$sigil)= extract_bracketed( $var, '{q}',qr/[\@\%\$]/ );
+ ($brace,$rest,$sigil)= Text::Balanced::extract_bracketed( $var, '{q}',qr/[\@\%\$]/ );
}
if ($brace and !$rest) {
$brace=~s/^\{(.*)\}$/$1/;
@@ -2399,9 +2400,8 @@
);
$default_key_sorters{alphabetical}=$default_key_sorters{lexical};
$default_key_sorters{intelligent}=$default_key_sorters{smart};
-use Text::Abbrev;
for my $h (\%default_key_sorters) {
- my $abr=abbrev keys %$h;
+ my $abr=Text::Abbrev::abbrev keys %$h;
foreach my $short (keys %$abr) {
$h->{$short}=$h->{$abr->{$short}};
}
@@ -2649,7 +2649,7 @@
unless ($self->{style}{deparse}) {
$self->{fh}->print($self->{style}{codestub});
} else { #deparseopts
- my $cv=svref_2object($item);
+ my $cv=B::svref_2object($item);
if (ref($cv->ROOT)=~/NULL/) {
my $gv=$cv->GV;
@@ -3636,7 +3636,7 @@
return $names;
}
- my $svo=svref_2object($cv);
+ my $svo=B::svref_2object($cv);
my @pl_array = $svo->PADLIST->ARRAY;
my @name_obj = $pl_array[0]->ARRAY;
@@ -3650,9 +3650,9 @@
my %inited;
my %used;
- walkoptree_filtered(
+ B::Utils::walkoptree_filtered(
$svo->ROOT,
- sub { opgrep { name => [ qw[ padsv padav padhv ] ] }, @_ },
+ sub { B::Utils::opgrep { name => [ qw[ padsv padav padhv ] ] }, @_ },
sub {
my ( $op, @items )=@_;
my $targ = $op->targ;
@@ -3677,7 +3677,7 @@
our @ISA=qw(B::Deparse);
my %cache;
-our $VERSION = '2.26';
+our $VERSION = '2.27';
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/lib/Data/Dump/Streamer.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.xs?rev=68087&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.xs (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/lib/Data/Dump/Streamer.xs Tue Feb 1 20:56:59 2011
@@ -1,7 +1,5 @@
/*
* Streamer.xs
- *
- * $Id: Streamer.xs 39 2007-12-22 00:11:22Z demerphq $
*
* Code from Array::RefElem
* Copyright (c) 1997-2000 Graham Barr <gbarr at pobox.com>. All rights reserved.
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=68087&op=diff
==============================================================================
--- branches/upstream/libdata-dump-streamer-perl/current/t/dump.t (original)
+++ branches/upstream/libdata-dump-streamer-perl/current/t/dump.t Tue Feb 1 20:56:59 2011
@@ -401,15 +401,20 @@
EXPECT
}
{
+ my $expect = $] >= 5.013_008 ? <<'U_FLAG' : <<'NO_U_FLAG';
+$VAR1 = "This contains unicode: /\x{263a}/";
+$Regexp1 = qr!This contains unicode: /\x{263a}/!u;
+U_FLAG
+$VAR1 = "This contains unicode: /\x{263a}/";
+$Regexp1 = qr!This contains unicode: /\x{263a}/!;
+NO_U_FLAG
+
use utf8;
my $r = "This contains unicode: /\x{263A}/";
my $qr= qr/$r/;
test_dump( {name=>"Unicode qr// and string",
no_dumper => 1, verbose => 1 }, $o, ( $r,$qr ),
- <<'EXPECT', );
-$VAR1 = "This contains unicode: /\x{263a}/";
-$Regexp1 = qr!This contains unicode: /\x{263a}/!;
-EXPECT
+ $expect);
}
{
use utf8;
More information about the Pkg-perl-cvs-commits
mailing list