forked from pool/perl-B-Utils
14 lines
510 B
Diff
14 lines
510 B
Diff
|
Index: B-Utils-0.21/lib/B/Utils.pm
|
||
|
|
===================================================================
|
||
|
|
--- B-Utils-0.21.orig/lib/B/Utils.pm
|
||
|
|
+++ B-Utils-0.21/lib/B/Utils.pm
|
||
|
|
@@ -210,7 +210,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 " )
|
||
|
|
: ()
|
||
|
|
)
|