r27091 - in /branches/upstream/libb-utils-perl/current: Changes META.yml lib/B/Utils.pm lib/B/Utils/OP.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Nov 22 14:30:11 UTC 2008
Author: gregoa
Date: Sat Nov 22 14:30:07 2008
New Revision: 27091
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27091
Log:
[svn-upgrade] Integrating new upstream version, libb-utils-perl (0.07)
Modified:
branches/upstream/libb-utils-perl/current/Changes
branches/upstream/libb-utils-perl/current/META.yml
branches/upstream/libb-utils-perl/current/lib/B/Utils.pm
branches/upstream/libb-utils-perl/current/lib/B/Utils/OP.pm
Modified: branches/upstream/libb-utils-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-utils-perl/current/Changes?rev=27091&op=diff
==============================================================================
--- branches/upstream/libb-utils-perl/current/Changes (original)
+++ branches/upstream/libb-utils-perl/current/Changes Sat Nov 22 14:30:07 2008
@@ -1,4 +1,11 @@
Revision history for Perl extension B::Utils.
+
+0.07 Tue Nov 11 23:05:.. PDT 2008
+ - Fixed a refactoring error in walkallops_simple. walkallops* was broken.
+ - Avoided base.pm because that library is kind of nasty
+
+0.06 ???
+ - Ask CLKAO
0.05_09 Sat Apr 6 16:09:.. CEST 2008
- Allow for nested disjunctions in opgrep patterns.
Modified: branches/upstream/libb-utils-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-utils-perl/current/META.yml?rev=27091&op=diff
==============================================================================
--- branches/upstream/libb-utils-perl/current/META.yml (original)
+++ branches/upstream/libb-utils-perl/current/META.yml Sat Nov 22 14:30:07 2008
@@ -1,11 +1,11 @@
--- #YAML:1.0
name: B-Utils
-version: 0.06
+version: 0.07
abstract: Helper functions for op tree manipulation
license: perl
author:
- Joshua b. Jore <jjore at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.38
+generated_by: ExtUtils::MakeMaker version 6.42
distribution_type: module
requires:
meta-spec:
Modified: branches/upstream/libb-utils-perl/current/lib/B/Utils.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-utils-perl/current/lib/B/Utils.pm?rev=27091&op=diff
==============================================================================
--- branches/upstream/libb-utils-perl/current/lib/B/Utils.pm (original)
+++ branches/upstream/libb-utils-perl/current/lib/B/Utils.pm Sat Nov 22 14:30:07 2008
@@ -22,14 +22,11 @@
=head1 VERSION
-0.05_09 - This is a dev version and
- is part of an effort to add tests,
- functionality, and merge a fork
- from Module::Info.
-
-=cut
-
-$VERSION = '0.06';
+0.07
+
+=cut
+
+$VERSION = '0.07';
use base 'DynaLoader';
bootstrap B::Utils $VERSION;
@@ -567,13 +564,15 @@
$file = '__none__';
$line = 0;
- &_walkoptree_simple;
+ _walkoptree_simple( {}, @_ );
return TRUE;
}
sub _walkoptree_simple {
- my ( $op, $callback, $data ) = @_;
+ my ( $visited, $op, $callback, $data ) = @_;
+
+ return if $visited->{$$op}++;
if ( ref $op and $op->isa("B::COP") ) {
$file = $op->file;
@@ -585,7 +584,7 @@
and $$op
and $op->flags & OPf_KIDS )
{
- _walkoptree_simple( $_, $callback, $data ) for $op->kids;
+ _walkoptree_simple( $visited, $_, $callback, $data ) for $op->kids;
}
return;
@@ -605,13 +604,13 @@
$file = '__none__';
$line = 0;
- &_walkoptree_filtered;
+ _walkoptree_filtered( {}, @_ );;
return TRUE;
}
sub _walkoptree_filtered {
- my ( $op, $filter, $callback, $data ) = @_;
+ my ( $visited, $op, $filter, $callback, $data ) = @_;
if ( $op->isa("B::COP") ) {
$file = $op->file;
@@ -629,7 +628,7 @@
while ( ref $kid
and $$kid )
{
- _walkoptree_filtered( $kid, $filter, $callback, $data );
+ _walkoptree_filtered( $visited, $kid, $filter, $callback, $data );
$kid = $kid->sibling;
}
@@ -658,7 +657,7 @@
sub _walkallops_simple {
my ( $callback, $data ) = @_;
- _init();
+ _init_sub_cache();
walkoptree_simple( $_, $callback, $data ) for values %roots;
@@ -685,7 +684,7 @@
sub _walkallops_filtered {
my ( $filter, $callback, $data ) = @_;
- _init();
+ _init_sub_cache();
walkoptree_filtered( $_, $filter, $callback, $data ) for values %roots;
Modified: branches/upstream/libb-utils-perl/current/lib/B/Utils/OP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-utils-perl/current/lib/B/Utils/OP.pm?rev=27091&op=diff
==============================================================================
--- branches/upstream/libb-utils-perl/current/lib/B/Utils/OP.pm (original)
+++ branches/upstream/libb-utils-perl/current/lib/B/Utils/OP.pm Sat Nov 22 14:30:07 2008
@@ -6,12 +6,13 @@
use warnings;
use B::Utils ();
-use base 'Exporter';
-our $VERSION = '0.06';
+our @ISA = 'Exporter';
+require Exporter;
+our $VERSION = '0.07';
our @EXPORT = qw(parent_op return_op);
-use base 'DynaLoader';
+push @ISA, 'DynaLoader';
# the boot symbol is in B::Utils. bootstrap doesn't like it, so we
# need to load it manually.
my $bootname = 'boot_B__Utils__OP';
More information about the Pkg-perl-cvs-commits
mailing list