r27093 - in /trunk/libb-utils-perl: Changes META.yml debian/changelog lib/B/Utils.pm lib/B/Utils/OP.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Nov 22 14:31:07 2008
New Revision: 27093

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27093
Log:
New upstream release.

Modified:
    trunk/libb-utils-perl/Changes
    trunk/libb-utils-perl/META.yml
    trunk/libb-utils-perl/debian/changelog
    trunk/libb-utils-perl/lib/B/Utils.pm
    trunk/libb-utils-perl/lib/B/Utils/OP.pm

Modified: trunk/libb-utils-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/Changes?rev=27093&op=diff
==============================================================================
--- trunk/libb-utils-perl/Changes (original)
+++ trunk/libb-utils-perl/Changes Sat Nov 22 14:31: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: trunk/libb-utils-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/META.yml?rev=27093&op=diff
==============================================================================
--- trunk/libb-utils-perl/META.yml (original)
+++ trunk/libb-utils-perl/META.yml Sat Nov 22 14:31: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: trunk/libb-utils-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/debian/changelog?rev=27093&op=diff
==============================================================================
--- trunk/libb-utils-perl/debian/changelog (original)
+++ trunk/libb-utils-perl/debian/changelog Sat Nov 22 14:31:07 2008
@@ -1,7 +1,8 @@
-libb-utils-perl (0.06-2) UNRELEASED; urgency=low
+libb-utils-perl (0.07-1) UNRELEASED; urgency=low
 
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
+  * New upstream release.
 
  -- gregor herrmann <gregoa at debian.org>  Sun, 16 Nov 2008 20:39:56 +0100
 

Modified: trunk/libb-utils-perl/lib/B/Utils.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/lib/B/Utils.pm?rev=27093&op=diff
==============================================================================
--- trunk/libb-utils-perl/lib/B/Utils.pm (original)
+++ trunk/libb-utils-perl/lib/B/Utils.pm Sat Nov 22 14:31: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: trunk/libb-utils-perl/lib/B/Utils/OP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/lib/B/Utils/OP.pm?rev=27093&op=diff
==============================================================================
--- trunk/libb-utils-perl/lib/B/Utils/OP.pm (original)
+++ trunk/libb-utils-perl/lib/B/Utils/OP.pm Sat Nov 22 14:31: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';