File parent-impl.patch of Package perl-B-Utils

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 " )
             : ()
             )