From c3327e6b1a783c8afee54c5ccd2b5d44afdba66b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Tue, 28 Oct 2008 20:22:36 +0000
Subject: move get_live_name as get_name method in MDV::Draklive::Live object

---
 lib/MDV/Draklive/Live.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/MDV/Draklive/Live.pm')

diff --git a/lib/MDV/Draklive/Live.pm b/lib/MDV/Draklive/Live.pm
index 1f3bd3d..7d5a3fd 100644
--- a/lib/MDV/Draklive/Live.pm
+++ b/lib/MDV/Draklive/Live.pm
@@ -7,4 +7,9 @@ sub new {
     bless {}, $class;
 }
 
+sub get_name {
+    my ($live) = @_;
+    join('-', grep { $_ } @{$live->{settings}}{qw(name product version desktop region media arch)});
+}
+
 1;
-- 
cgit v1.2.1