1.01: mgruberman/B-Utils/pull/9

A pointer when viewed as signed integer may look negative.

.gitignore

@@ -2,7 +2,6 @@
 # regenerated with different key order
 build/IFiles.pm
 /B-Utils1-*
-/README.md
 /META.json
 /META.yml
 /MYMETA.json

Changes

@@ -1,5 +1,11 @@
 Revision history for Perl extension B::Utils1.
 
+1.01 (rurban)
+
+   - Merge jbenjore/B-Utils/pull/9 by Andres Schwab
+     A pointer when viewed as signed integer may look negative.
+   - add README.md to repo
+
 1.0 (rurban)
    - Fork of B::Utils 0.27, which does not work with newer perls and is unmaintained.
    - Provide a backwards compatible B::OP::parent, patching the core B module.

MANIFEST

@@ -4,6 +4,7 @@ Changes
 LICENSE
 MANIFEST
 Makefile.PL
+README.md
 Utils1.xs
 build/IFiles.pm
 lib/B/Utils1.pm

README.md

@@ -4,7 +4,7 @@ B::Utils1 - Helper functions for op tree manipulation
 
 # VERSION
 
-1.0
+1.01
 
 # SYNOPSIS
 

lib/B/Utils1.pm

@@ -25,11 +25,11 @@ B::Utils1 - Helper functions for op tree manipulation
 
 =head1 VERSION
 
-1.0
+1.01
 
 =cut
 
-our $VERSION = '1.0';
+our $VERSION = '1.01';
 
 use base 'DynaLoader';
 bootstrap B::Utils1 $VERSION;
@@ -208,7 +208,7 @@ sub B::OP::_parent_impl {
     return (
         $op->sibling->_parent_impl( $target, "$cx$$op S " )
             || (
-              $cx =~ /^(?:\d+ S )*(?:\d+ N )*$/
+              $cx =~ /^(?:-?\d+ S )*(?:-?\d+ N )*$/
             ? $op->next->_parent_impl( $target, "$cx$$op N " )
             : ()
             )

lib/B/Utils1/OP.pm

@@ -5,7 +5,7 @@ use B::Utils1 ();
 
 our @ISA = 'Exporter';
 require Exporter;
-our $VERSION = '1.0';
+our $VERSION = '1.01';
 our @EXPORT = qw(parent_op return_op);
 
 =head1 NAME