From 0d0c2a95c4cd388197d191fc0129b54ad34f7eb2 Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Thu, 12 Sep 2002 09:03:35 +0000
Subject: install package before loading modules to avoid file error

---
 drakwizard.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'drakwizard.pl')

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};
-- 
cgit v1.2.1