Revert of Linux build: Use sysroot when calculating dependencies

third_party/dpkg-dev/scripts/Dpkg/Util.pm

-# Copyright © 2013 Guillem Jover <guillem@debian.org>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-package Dpkg::Util;
-
-use strict;
-use warnings;
-
-our $VERSION = '0.01';
-
-use Exporter qw(import);
-our @EXPORT_OK = qw(any none);
-our %EXPORT_TAGS = (list => [ qw(any none) ]);
-
-# XXX: Ideally we would use List::MoreUtils, but that's not a core module,
-# so to avoid the additional dependency we'll make do with the following
-# trivial reimplementations.
-
-sub any(&@) {
-    my $code = shift;
-
-    foreach (@_) {
-        return 1 if $code->();
-    }
-
-    return 0;
-}
-
-sub none(&@) {
-    my $code = shift;
-
-    foreach (@_) {
-        return 0 if $code->();
-    }
-
-    return 1;
-}
-
-1;