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;