forked from pool/perl-B-Utils
362ca46dff
- parent-impl.patch: Allow negative numbers when finding parent (from https://github.com/jbenjore/B-Utils/pull/9) OBS-URL: https://build.opensuse.org/request/show/224411 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-B-Utils?expand=0&rev=8
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 " )
|
|
: ()
|
|
)
|