diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2010-01-25 14:09:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2010-01-25 14:09:06 +0000 |
| commit | da2895c06e2fdde78b0a9eec63d906b85969e987 (patch) | |
| tree | 3af85f55b079e59c702188e6fc3ac3bfef3bfe0e /mdkonline.pm | |
| parent | 97f967e55040f3d5434e90d2cf81629e9d680be9 (diff) | |
| download | mgaonline-da2895c06e2fdde78b0a9eec63d906b85969e987.tar mgaonline-da2895c06e2fdde78b0a9eec63d906b85969e987.tar.gz mgaonline-da2895c06e2fdde78b0a9eec63d906b85969e987.tar.bz2 mgaonline-da2895c06e2fdde78b0a9eec63d906b85969e987.tar.xz mgaonline-da2895c06e2fdde78b0a9eec63d906b85969e987.zip | |
(find_current_distro) factor code for mcc
Diffstat (limited to 'mdkonline.pm')
| -rw-r--r-- | mdkonline.pm | 7 |
1 files changed, 6 insertions, 1 deletions
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; |