install package before loading modules to avoid file error

1 files changed, 4 insertions, 4 deletions

diff --git a/drakwizard.pl b/drakwizard.pl
index 76648df5..91c8a5cc 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -106,10 +106,6 @@ sub get_parameter {
 	    my %actions = (
 			   Wizard => sub {
 			       ($Wizard_title, $lib_script, $perl_module, $rpm, $Wizard_pix_up) = @{$leaf}{qw(wizardTitle libScript perlModule rpm defaultImage)};
-			       if ($perl_module) {
-				   ($::perl_module_name) = ($perl_module =~ /.*\/(.*)\.pm/);
-				   require $perl_module;
-			       }
 			       if ($rpm) {
 				   if (!$in->do_pkgs->is_installed($rpm)) {
 				       $in->ask_okcancel("error", _("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", $rpm)) and 
@@ -117,6 +113,10 @@ sub get_parameter {
 					   $in->exit;
 				   }
 			       }
+			       if ($perl_module) {
+				   ($::perl_module_name) = ($perl_module =~ /.*\/(.*)\.pm/);
+				   require $perl_module;
+			       }
 			   },
 			   Variable => sub {
 			       $variable{$leaf->{name}} = $leaf->{shellVariable};