Dh_Lib: Only parse dh-sequence-X in dh

We do not want to pay a non-trivial cost of loading Dpkg::Deps in
every helper (for cases where that is needed to parse th dh-sequence
clause).

Signed-off-by: Niels Thykier <niels@thykier.net>

1 files changed, 6 insertions, 1 deletions

diff --git a/lib/Debian/Debhelper/Dh_Lib.pm b/lib/Debian/Debhelper/Dh_Lib.pm
index 070f5968..cc7b5b1c 100644
--- a/lib/Debian/Debhelper/Dh_Lib.pm
+++ b/lib/Debian/Debhelper/Dh_Lib.pm
@@ -201,6 +201,10 @@ our $DEB822_FIELD_REGEX = qr/
 sub init {
 	my %params=@_;
 
+	if ($params{internal_parse_dh_sequence_info}) {
+		_parse_debian_control(1);
+	}
+
 	# Check if we can by-pass the expensive Getopt::Long by optimising for the
 	# common case of "-a" or "-i"
 	if (scalar(@ARGV) == 1 && ($ARGV[0] eq '-a' || $ARGV[0] eq '-i') &&
@@ -1582,6 +1586,7 @@ sub getpackages {
 }
 
 sub _parse_debian_control {
+	my ($parse_dh_sequence_info) = @_;
 	my $package="";
 	my $arch="";
 	my $section="";
@@ -1693,7 +1698,7 @@ sub _parse_debian_control {
 					error("Could not parse desired debhelper compat level from relation: $dep");
 				}
 				# Build-Depends on dh-sequence-<foo> OR dh-sequence-<foo> (<op> <version>)
-				if ($dep =~ m/^dh-sequence-(${PKGNAME_REGEX})\s*(?:[(]\s*(?:[<>]?=|<<|>>)\s*(?:${PKGVERSION_REGEX})\s*[)])?(\s*[^\|]+[]>]\s*)?$/) {
+				if ($parse_dh_sequence_info and $dep =~ m/^dh-sequence-(${PKGNAME_REGEX})\s*(?:[(]\s*(?:[<>]?=|<<|>>)\s*(?:${PKGVERSION_REGEX})\s*[)])?(\s*[^\|]+[]>]\s*)?$/) {
 					my $sequence = $1;
 					my $has_profile_or_arch_restriction = $2 ? 1 : 0;
 					my $addon_type = $field2addon_type{$field};