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

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

Author: jawnsy-guest
Date: Sat Jan  2 03:42:47 2010
New Revision: 49914

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49914
Log:
integrate new version, not sure if it really needs EU 0.302

Modified:
    trunk/libb-utils-perl/META.yml
    trunk/libb-utils-perl/README
    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/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/META.yml?rev=49914&op=diff
==============================================================================
--- trunk/libb-utils-perl/META.yml (original)
+++ trunk/libb-utils-perl/META.yml Sat Jan  2 03:42:47 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: trunk/libb-utils-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/README?rev=49914&op=diff
==============================================================================
--- trunk/libb-utils-perl/README (original)
+++ trunk/libb-utils-perl/README Sat Jan  2 03:42:47 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: trunk/libb-utils-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libb-utils-perl/debian/changelog?rev=49914&op=diff
==============================================================================
--- trunk/libb-utils-perl/debian/changelog (original)
+++ trunk/libb-utils-perl/debian/changelog Sat Jan  2 03:42:47 2010
@@ -1,4 +1,4 @@
-libb-utils-perl (0.09-1) UNRELEASED; urgency=low
+libb-utils-perl (0.10-1) UNRELEASED; urgency=low
 
   This doesn't need to be updated yet, but when it does, it'll
   require either a patch or an EU::Depends upgrade
@@ -7,16 +7,14 @@
   IGNORE-VERSION: 0.09-1
 
   * New upstream release
-    + Now uses ppport.h for compatibility
   * Removed Alexis Sukrieh from Uploaders (Closes: #536125)
   * Standards-Version 3.8.3 (drop perl version dependency)
   * Added myself to Uploaders and Copyright
   * Added everyone from changelog into copyright file directly
   * Use new short rules format
   * Rewrote control file description
-  * New upstream release
 
- -- Jonathan Yu <jawnsy at cpan.org>  Mon, 07 Dec 2009 20:04:01 -0500
+ -- Jonathan Yu <jawnsy at cpan.org>  Fri, 01 Jan 2010 22:41:26 -0500
 
 libb-utils-perl (0.07-1) unstable; urgency=low
 

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=49914&op=diff
==============================================================================
--- trunk/libb-utils-perl/lib/B/Utils.pm (original)
+++ trunk/libb-utils-perl/lib/B/Utils.pm Sat Jan  2 03:42:47 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: 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=49914&op=diff
==============================================================================
--- trunk/libb-utils-perl/lib/B/Utils/OP.pm (original)
+++ trunk/libb-utils-perl/lib/B/Utils/OP.pm Sat Jan  2 03:42:47 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);