diff options
-rwxr-xr-x | mdkapplet | 2 | ||||
-rw-r--r-- | mdkonline.pm | 7 |
2 files changed, 7 insertions, 2 deletions
@@ -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; |