From da2895c06e2fdde78b0a9eec63d906b85969e987 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 25 Jan 2010 14:09:06 +0000
Subject: (find_current_distro) factor code for mcc

---
 mdkonline.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'mdkonline.pm')

diff --git a/mdkonline.pm b/mdkonline.pm
index e1acf383..3cf4366e 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -30,7 +30,8 @@ use common;
 use ugtk2;
 
 our @ISA = qw(Exporter);
-our @EXPORT = qw(fork_exec
+our @EXPORT = qw(find_current_distro
+                 fork_exec
                  get_banner
                  get_distro_list
                  get_from
@@ -73,6 +74,10 @@ sub is_restricted_media_supported() {
     to_bool($product_id->{product} =~ /powerpack/i);
 }
 
+sub find_current_distro {
+    find { $_->{version} eq $product_id->{version} } @_;
+}
+
 sub get_distro_list() {
     #- contact the following URL to retrieve the list of released distributions.
     my $type = lc($product_id->{type}); $type =~ s/\s//g;
-- 
cgit v1.2.1