diff options
author | Olivier Blin <dev@blino.org> | 2016-11-24 13:27:09 +0000 |
---|---|---|
committer | Pascal Terjan <pterjan@gmail.com> | 2016-11-24 13:27:09 +0000 |
commit | e25899465808ac13ed6ce60ef6dccb0b932f9337 (patch) | |
tree | 67d7867047dfa8bd65a15e7827bb653a580a2a50 /lib/Iurt/Config.pm | |
parent | 5df7c6f90fd6ad53df1ad39e2ea383be543f4ba1 (diff) | |
download | iurt-e25899465808ac13ed6ce60ef6dccb0b932f9337.tar iurt-e25899465808ac13ed6ce60ef6dccb0b932f9337.tar.gz iurt-e25899465808ac13ed6ce60ef6dccb0b932f9337.tar.bz2 iurt-e25899465808ac13ed6ce60ef6dccb0b932f9337.tar.xz iurt-e25899465808ac13ed6ce60ef6dccb0b932f9337.zip |
Extract get_target_arch helper
Diffstat (limited to 'lib/Iurt/Config.pm')
-rw-r--r-- | lib/Iurt/Config.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Iurt/Config.pm b/lib/Iurt/Config.pm index 3bef604..c8250f8 100644 --- a/lib/Iurt/Config.pm +++ b/lib/Iurt/Config.pm @@ -21,6 +21,7 @@ our @EXPORT = qw( check_noarch get_package_prefix get_mandatory_arch + get_target_arch %arch_comp ); @@ -187,4 +188,10 @@ sub get_mandatory_arch { (ref($config->{mandatory_arch}) eq 'HASH' ? ($config->{mandatory_arch}{$target}, $config->{mandatory_arch}{default}) : ()), []; } +sub get_target_arch { + my ($config, $target) = @_; + find { ref($_) eq 'ARRAY' } $config->{arch}, + (ref($config->{arch}) eq 'HASH' ? ($config->{arch}{$target}, $config->{arch}{default}) : ()), [ keys %{$config->{bot}} ]; +} + 1; |