(find_current_distro) factor code for mcc

2 files changed, 7 insertions, 2 deletions

diff --git a/mdkapplet b/mdkapplet
index 5e477371..7af8938a 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -317,7 +317,7 @@ sub is_there_a_new_distributions() {
         return 1;
     }
 
-    my $current_apimdv_distro = find { $_->{version} eq $product_id->{version} } @distros;
+    my $current_apimdv_distro = find_current_distro(@distros);
     $no_more_supported = $current_apimdv_distro->{obsoleted_by};
     ($extended_maintenance_url, $extended_maintenance_end) = @$current_apimdv_distro{qw(extended-maintenance extended-maintenance-end)};
     if ($no_more_supported) {
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;