diff options
| author | Olivier Blin <oblin@mandriva.com> | 2009-12-18 10:07:14 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2009-12-18 10:07:14 +0000 |
| commit | d6023583aab3508d2f3eea891bd8d37bc6746dd6 (patch) | |
| tree | f983aa14b4090211f18ac62a47e331a07926ef26 | |
| parent | 5671c368441f77724b7d277c5b2c4ca798d3b9c3 (diff) | |
| download | draklive-d6023583aab3508d2f3eea891bd8d37bc6746dd6.tar draklive-d6023583aab3508d2f3eea891bd8d37bc6746dd6.tar.gz draklive-d6023583aab3508d2f3eea891bd8d37bc6746dd6.tar.bz2 draklive-d6023583aab3508d2f3eea891bd8d37bc6746dd6.tar.xz draklive-d6023583aab3508d2f3eea891bd8d37bc6746dd6.zip | |
allow to select which settings fields are used to build name (in live->{name_fields})
| -rw-r--r-- | lib/MDV/Draklive/Live.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/MDV/Draklive/Live.pm b/lib/MDV/Draklive/Live.pm index f356b33..c8618ee 100644 --- a/lib/MDV/Draklive/Live.pm +++ b/lib/MDV/Draklive/Live.pm @@ -9,7 +9,8 @@ sub new { sub get_name { my ($live) = @_; - join('-', grep { $_ } @{$live->{settings}}{qw(name product version desktop region media arch)}); + my $fields = $live->{name_fields} || [ qw(name product version desktop region media arch) ]; + join('-', grep { $_ } @{$live->{settings}}{@$fields}); } sub get_builddir { |