Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package debhelper for openSUSE:Factory checked in at 2023-09-15 22:05:30 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/debhelper (Old) and /work/SRC/openSUSE:Factory/.debhelper.new.1766 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "debhelper" Fri Sep 15 22:05:30 2023 rev:16 rq:1111502 version:13.11.5 Changes: -------- --- /work/SRC/openSUSE:Factory/debhelper/debhelper.changes 2023-09-07 21:15:20.870896617 +0200 +++ /work/SRC/openSUSE:Factory/.debhelper.new.1766/debhelper.changes 2023-09-15 22:10:55.552828522 +0200 @@ -1,0 +2,6 @@ +Fri Sep 8 08:07:46 UTC 2023 - Jan Baier <jba...@suse.com> + +- fix initialization of state variables problem (bsc#1215078) + added debhelper-fix-perl-version-requirement.patch + +------------------------------------------------------------------- New: ---- debhelper-fix-perl-version-requirement.patch ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ debhelper.spec ++++++ --- /var/tmp/diff_new_pack.LOqwCj/_old 2023-09-15 22:10:57.208887733 +0200 +++ /var/tmp/diff_new_pack.LOqwCj/_new 2023-09-15 22:10:57.212887876 +0200 @@ -28,6 +28,8 @@ Patch0: debhelper-no-localized-manpages.patch # PATCH-FIX-UPSTREAM remove --utf8 since we only build En manpages. Patch1: debhelper-pod2man-no-utf8.patch +# PATCH-FIX-UPSTREAM debhelper-fix-perl-version-requirement.patch https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=1001403 +Patch2: debhelper-fix-perl-version-requirement.patch Requires: dh-autoreconf >= 17 Requires: dpkg >= 1.18 Requires: strip-nondeterminism @@ -52,6 +54,9 @@ %if 0%{?suse_version} && 0%{?suse_version} < 1130 %patch1 -p1 %endif +%if 0%{?sle_version} == 150500 +%patch2 -p0 +%endif %build %make_build VERSION='%{version}' ++++++ debhelper-fix-perl-version-requirement.patch ++++++ diff --git lib/Debian/Debhelper/Dh_Lib.pm lib/Debian/Debhelper/Dh_Lib.pm index 7cf59e0..1656c9b 100644 --- lib/Debian/Debhelper/Dh_Lib.pm +++ lib/Debian/Debhelper/Dh_Lib.pm @@ -2088,6 +2088,8 @@ sub _parse_debian_control { # - Takes an optional keyword; if passed, this will return true if the keyword is listed in R^3 (Rules-Requires-Root) # - If the optional keyword is omitted or not present in R^3 and R^3 is not 'binary-targets', then returns false # - Returns true otherwise (i.e. keyword is in R^3 or R^3 is 'binary-targets') +{ +my %rrr; sub should_use_root { my ($keyword) = @_; my $rrr_env = $ENV{'DEB_RULES_REQUIRES_ROOT'} // 'binary-targets'; @@ -2097,10 +2099,11 @@ sub should_use_root { return 1 if $rrr_env eq 'binary-targets'; return 0 if not defined($keyword); - state %rrr = map { $_ => 1 } split(' ', $rrr_env); + %rrr = map { $_ => 1 } split(' ', $rrr_env) if not %rrr; return 1 if exists($rrr{$keyword}); return 0; } +} # Returns the "gain root command" as a list suitable for passing as a part of the command to "doit()" sub gain_root_cmd { @@ -2219,12 +2222,16 @@ sub is_udeb { return package_type($package) eq 'udeb'; } - +{ +my %packages_to_process; sub process_pkg { my ($package) = @_; - state %packages_to_process = map { $_ => 1 } @{$dh{DOPACKAGES}}; + if (not %packages_to_process) { + %packages_to_process = map { $_ => 1 } @{$dh{DOPACKAGES}}; + } return $packages_to_process{$package} // 0; } +} # Only useful for dh(1) sub bd_dh_sequences { @@ -3075,12 +3082,15 @@ sub perl_cross_incdir { return $incdir; } +{ +my %known_packages; sub is_known_package { my ($package) = @_; - state %known_packages = map { $_ => 1 } getpackages(); + %known_packages = map { $_ => 1 } getpackages() if not %known_packages; return 1 if exists($known_packages{$package}); return 0 } +} sub assert_opt_is_known_package { my ($package, $method) = @_; -- 2.35.3
