diff options
| author | Niels Thykier <niels@thykier.net> | 2019-02-24 16:43:41 +0000 |
|---|---|---|
| committer | Niels Thykier <niels@thykier.net> | 2019-02-24 16:43:41 +0000 |
| commit | aae4b351619d5ec6a2c2c9f6212a6a9afccfc9bb (patch) | |
| tree | 4aee32429a5000b6daff92c57f2112249eb7c686 /lib | |
| parent | ba2ec857e49da223589731d5c503c0c9b83c8b5d (diff) | |
| download | debhelper-aae4b351619d5ec6a2c2c9f6212a6a9afccfc9bb.tar.gz | |
Dh_Lib: Add "is_known_package" function
Signed-off-by: Niels Thykier <niels@thykier.net>
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Debian/Debhelper/Dh_Lib.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/Debian/Debhelper/Dh_Lib.pm b/lib/Debian/Debhelper/Dh_Lib.pm index f78f3248..00703214 100644 --- a/lib/Debian/Debhelper/Dh_Lib.pm +++ b/lib/Debian/Debhelper/Dh_Lib.pm @@ -166,6 +166,7 @@ qw( DEFAULT_PACKAGE_TYPE DBGSYM_PACKAGE_TYPE DH_BUILTIN_VERSION + is_known_package assert_opt_is_known_package restore_all_files @@ -2658,10 +2659,16 @@ sub dbgsym_tmpdir { { my %known_packages; + sub is_known_package { + my ($package) = @_; + %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) = @_; - %known_packages = map { $_ => 1 } getpackages() if not %known_packages; - if (not exists($known_packages{$package})) { + if (not is_known_package($package)) { error("Requested unknown package $package via $method, expected one of: " . join(' ', getpackages())); } return 1; |