diff options
author | Olivier Blin <oblin@mandriva.com> | 2008-10-28 20:22:36 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.com> | 2008-10-28 20:22:36 +0000 |
commit | c3327e6b1a783c8afee54c5ccd2b5d44afdba66b (patch) | |
tree | 1f58d66be04bb7edad61b7fe7a48cb556d33b5fe /lib | |
parent | e40ef60401883d797a8772911bb0af92f17ff3ff (diff) | |
download | draklive-c3327e6b1a783c8afee54c5ccd2b5d44afdba66b.tar draklive-c3327e6b1a783c8afee54c5ccd2b5d44afdba66b.tar.gz draklive-c3327e6b1a783c8afee54c5ccd2b5d44afdba66b.tar.bz2 draklive-c3327e6b1a783c8afee54c5ccd2b5d44afdba66b.tar.xz draklive-c3327e6b1a783c8afee54c5ccd2b5d44afdba66b.zip |
move get_live_name as get_name method in MDV::Draklive::Live object
Diffstat (limited to 'lib')
-rw-r--r-- | lib/MDV/Draklive/Live.pm | 5 |
1 files changed, 5 insertions, 0 deletions
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; |