r49910 - in /branches/upstream/libb-utils-perl/current: META.yml README lib/B/Utils.pm lib/B/Utils/OP.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sat Jan  2 03:38:14 2010
New Revision: 49910

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49910
Log:
[svn-upgrade] Integrating new upstream version, libb-utils-perl (0.10)

Modified:
    branches/upstream/libb-utils-perl/current/META.yml
    branches/upstream/libb-utils-perl/current/README
    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/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-utils-perl/current/META.yml?rev=49910&op=diff
==============================================================================
--- branches/upstream/libb-utils-perl/current/META.yml (original)
+++ branches/upstream/libb-utils-perl/current/META.yml Sat Jan  2 03:38:14 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               B-Utils
-version:            0.09
+version:            0.10
 abstract:           Helper functions for op tree manipulation
 author:
     - Joshua b. Jore <jjore at cpan.org>
@@ -24,7 +24,7 @@
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.55_02
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4

Modified: branches/upstream/libb-utils-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libb-utils-perl/current/README?rev=49910&op=diff
==============================================================================
--- branches/upstream/libb-utils-perl/current/README (original)
+++ branches/upstream/libb-utils-perl/current/README Sat Jan  2 03:38:14 2010
@@ -2,7 +2,7 @@
     B::Utils - Helper functions for op tree manipulation
 
 VERSION
-    0.08
+    0.10
 
 SYNOPSIS
       use B::Utils;
@@ -300,11 +300,10 @@
       perldoc -m B::Utils::Install::BUtils_op.h
 
 AUTHOR
-    Originally written by Simon Cozens, "simon at cpan.org" Maintained by
-    Joshua ben Jore, "jjore at cpan.org"
+    Originally written by Simon Cozens
 
     Contributions from Mattia Barbon, Jim Cromie, Steffen Mueller, and
-    Chia-liang Kao.
+    Chia-liang Kao, Alexandr Ciornii, Josh ben Jore.
 
 LICENSE
     This module is free software; you can redistribute it and/or modify it

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=49910&op=diff
==============================================================================
--- branches/upstream/libb-utils-perl/current/lib/B/Utils.pm (original)
+++ branches/upstream/libb-utils-perl/current/lib/B/Utils.pm Sat Jan  2 03:38:14 2010
@@ -28,11 +28,24 @@
 
 =head1 VERSION
 
-0.09
-
-=cut
-
-$VERSION = '0.09';
+0.10
+
+=cut
+
+$VERSION = '0.10';
+
+
+
+=head1 INSTALLATION
+
+To install this module, run the following commands:
+
+    perl Makefile.PL
+    make
+    make test
+    make install
+
+=cut
 
 
 
@@ -247,12 +260,17 @@
 =cut
 
 sub B::OP::siblings {
-    my @siblings = shift;
+    my @siblings = $_[0];
 
     my $sibling;
-    push @siblings, $sibling while $sibling = $siblings[-1]->can('sibling');
+    push @siblings, $siblings[-1]->sibling while $siblings[-1]->can('sibling');
     shift @siblings;
-    pop @siblings if 'NULL' eq class $siblings[-1];
+
+    # Remove any undefined or B::NULL objects
+    pop @siblings while
+        @siblings
+        && !( defined $siblings[-1]
+              && ${$siblings[-1]} );
 
     return @siblings;
 }

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=49910&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 Jan  2 03:38:14 2010
@@ -8,7 +8,7 @@
 
 our @ISA = 'Exporter';
 require Exporter;
-our $VERSION = '0.09';
+our $VERSION = '0.10';
 our @EXPORT = qw(parent_op return_op);