From d6023583aab3508d2f3eea891bd8d37bc6746dd6 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 18 Dec 2009 10:07:14 +0000 Subject: allow to select which settings fields are used to build name (in live->{name_fields}) --- lib/MDV/Draklive/Live.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 { -- cgit v1.2.1