Allow negative numbers when searching for parent

A pointer when viewed as signed integer may look negative.
mgruberman · Oct 21, 2014 · d917282 · d917282
1 parent 4f13a7e
commit d917282
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/B/Utils.pm b/lib/B/Utils.pm
@@ -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 " )
             : ()
             )