Revert of Linux build: Use sysroot when calculating dependencies

third_party/dpkg-dev/scripts/Dpkg/Changelog/Debian.pm

Index: third_party/dpkg-dev/scripts/Dpkg/Changelog/Debian.pm
diff --git a/third_party/dpkg-dev/scripts/Dpkg/Changelog/Debian.pm b/third_party/dpkg-dev/scripts/Dpkg/Changelog/Debian.pm
deleted file mode 100644
index 1643fb3a0cf07c0fd2ed281c60ec41a880d4804e..0000000000000000000000000000000000000000
--- a/third_party/dpkg-dev/scripts/Dpkg/Changelog/Debian.pm
+++ /dev/null
@@ -1,208 +0,0 @@
-# Copyright © 1996 Ian Jackson
-# Copyright © 2005 Frank Lichtenheld <frank@lichtenheld.de>
-# Copyright © 2009 Raphaël Hertzog <hertzog@debian.org>
-# Copyright © 2012-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/>.
-
-=encoding utf8
-
-=head1 NAME
-
-Dpkg::Changelog::Debian - parse Debian changelogs
-
-=head1 DESCRIPTION
-
-Dpkg::Changelog::Debian parses Debian changelogs as described in the Debian
-policy (version 3.6.2.1 at the time of this writing). See section
-L<"SEE ALSO"> for locations where to find this definition.
-
-The parser tries to ignore most cruft like # or /* */ style comments,
-CVS comments, vim variables, emacs local variables and stuff from
-older changelogs with other formats at the end of the file.
-NOTE: most of these are ignored silently currently, there is no
-parser error issued for them. This should become configurable in the
-future.
-
-=head2 METHODS
-
-=cut
-
-package Dpkg::Changelog::Debian;
-
-use strict;
-use warnings;
-
-our $VERSION = '1.00';
-
-use Dpkg::Gettext;
-use Dpkg::File;
-use Dpkg::Changelog qw(:util);
-use parent qw(Dpkg::Changelog);
-use Dpkg::Changelog::Entry::Debian qw(match_header match_trailer);
-
-use constant {
-    FIRST_HEADING => _g('first heading'),
-    NEXT_OR_EOF => _g('next heading or eof'),
-    START_CHANGES => _g('start of change data'),
-    CHANGES_OR_TRAILER => _g('more change data or trailer'),
-};
-
-=over 4
-
-=item $c->parse($fh, $description)
-
-Read the filehandle and parse a Debian changelog in it. Returns the number
-of changelog entries that have been parsed with success.
-
-=cut
-
-sub parse {
-    my ($self, $fh, $file) = @_;
-    $file = $self->{reportfile} if exists $self->{reportfile};
-
-    $self->reset_parse_errors;
-
-    $self->{data} = [];
-    $self->set_unparsed_tail(undef);
-
-    my $expect = FIRST_HEADING;
-    my $entry = Dpkg::Changelog::Entry::Debian->new();
-    my @blanklines = ();
-    my $unknowncounter = 1; # to make version unique, e.g. for using as id
-
-    while (<$fh>) {
-	chomp;
-	if (match_header($_)) {
-	    unless ($expect eq FIRST_HEADING || $expect eq NEXT_OR_EOF) {
-		$self->parse_error($file, $.,
-		    sprintf(_g('found start of entry where expected %s'),
-		    $expect), "$_");
-	    }
-	    unless ($entry->is_empty) {
-		push @{$self->{data}}, $entry;
-		$entry = Dpkg::Changelog::Entry::Debian->new();
-		last if $self->abort_early();
-	    }
-	    $entry->set_part('header', $_);
-	    foreach my $error ($entry->check_header()) {
-		$self->parse_error($file, $., $error, $_);
-	    }
-	    $expect= START_CHANGES;
-	    @blanklines = ();
-	} elsif (m/^(;;\s*)?Local variables:/io) {
-	    last; # skip Emacs variables at end of file
-	} elsif (m/^vim:/io) {
-	    last; # skip vim variables at end of file
-	} elsif (m/^\$\w+:.*\$/o) {
-	    next; # skip stuff that look like a CVS keyword
-	} elsif (m/^\# /o) {
-	    next; # skip comments, even that's not supported
-	} elsif (m{^/\*.*\*/}o) {
-	    next; # more comments
-	} elsif (m/^(\w+\s+\w+\s+\d{1,2} \d{1,2}:\d{1,2}:\d{1,2}\s+[\w\s]*\d{4})\s+(.*)\s+(<|\()(.*)(\)|>)/o
-		 || m/^(\w+\s+\w+\s+\d{1,2},?\s*\d{4})\s+(.*)\s+(<|\()(.*)(\)|>)/o
-		 || m/^(\w[-+0-9a-z.]*) \(([^\(\) \t]+)\)\;?/io
-		 || m/^([\w.+-]+)(-| )(\S+) Debian (\S+)/io
-		 || m/^Changes from version (.*) to (.*):/io
-		 || m/^Changes for [\w.+-]+-[\w.+-]+:?\s*$/io
-		 || m/^Old Changelog:\s*$/io
-		 || m/^(?:\d+:)?\w[\w.+~-]*:?\s*$/o) {
-	    # save entries on old changelog format verbatim
-	    # we assume the rest of the file will be in old format once we
-	    # hit it for the first time
-	    $self->set_unparsed_tail("$_\n" . file_slurp($fh));
-	} elsif (m/^\S/) {
-	    $self->parse_error($file, $., _g('badly formatted heading line'), "$_");
-	} elsif (match_trailer($_)) {
-	    unless ($expect eq CHANGES_OR_TRAILER) {
-		$self->parse_error($file, $.,
-		    sprintf(_g('found trailer where expected %s'), $expect), "$_");
-	    }
-	    $entry->set_part('trailer', $_);
-	    $entry->extend_part('blank_after_changes', [ @blanklines ]);
-	    @blanklines = ();
-	    foreach my $error ($entry->check_trailer()) {
-		$self->parse_error($file, $., $error, $_);
-	    }
-	    $expect = NEXT_OR_EOF;
-	} elsif (m/^ \-\-/) {
-	    $self->parse_error($file, $., _g('badly formatted trailer line'), "$_");
-	} elsif (m/^\s{2,}(\S)/) {
-	    unless ($expect eq START_CHANGES or $expect eq CHANGES_OR_TRAILER) {
-		$self->parse_error($file, $., sprintf(_g('found change data' .
-		    ' where expected %s'), $expect), "$_");
-		if ($expect eq NEXT_OR_EOF and not $entry->is_empty) {
-		    # lets assume we have missed the actual header line
-		    push @{$self->{data}}, $entry;
-		    $entry = Dpkg::Changelog::Entry::Debian->new();
-		    $entry->set_part('header', 'unknown (unknown' . ($unknowncounter++) . ') unknown; urgency=unknown');
-		}
-	    }
-	    # Keep raw changes
-	    $entry->extend_part('changes', [ @blanklines, $_ ]);
-	    @blanklines = ();
-	    $expect = CHANGES_OR_TRAILER;
-	} elsif (!m/\S/) {
-	    if ($expect eq START_CHANGES) {
-		$entry->extend_part('blank_after_header', $_);
-		next;
-	    } elsif ($expect eq NEXT_OR_EOF) {
-		$entry->extend_part('blank_after_trailer', $_);
-		next;
-	    } elsif ($expect ne CHANGES_OR_TRAILER) {
-		$self->parse_error($file, $.,
-		    sprintf(_g('found blank line where expected %s'), $expect));
-	    }
-	    push @blanklines, $_;
-	} else {
-	    $self->parse_error($file, $., _g('unrecognized line'), "$_");
-	    unless ($expect eq START_CHANGES or $expect eq CHANGES_OR_TRAILER) {
-		# lets assume change data if we expected it
-		$entry->extend_part('changes', [ @blanklines, $_]);
-		@blanklines = ();
-		$expect = CHANGES_OR_TRAILER;
-	    }
-	}
-    }
-
-    unless ($expect eq NEXT_OR_EOF) {
-	$self->parse_error($file, $., sprintf(_g('found eof where expected %s'),
-					      $expect));
-    }
-    unless ($entry->is_empty) {
-	push @{$self->{data}}, $entry;
-    }
-
-    return scalar @{$self->{data}};
-}
-
-1;
-__END__
-
-=back
-
-=head1 SEE ALSO
-
-Dpkg::Changelog
-
-Description of the Debian changelog format in the Debian policy:
-L<http://www.debian.org/doc/debian-policy/ch-source.html#s-dpkgchangelog>.
-
-=head1 AUTHORS
-
-Frank Lichtenheld, E<lt>frank@lichtenheld.deE<gt>
-Raphaël Hertzog, E<lt>hertzog@debian.orgE<gt>
-
-=cut