summaryrefslogtreecommitdiffstats
path: root/drakwizard.pl
diff options
context:
space:
mode:
authorArnaud Desmons <adesmons@mandriva.com>2002-09-12 09:03:35 +0000
committerArnaud Desmons <adesmons@mandriva.com>2002-09-12 09:03:35 +0000
commit0d0c2a95c4cd388197d191fc0129b54ad34f7eb2 (patch)
treef24c23a6def3394392b86059e084339240d19630 /drakwizard.pl
parentd2b03ee69f663b365e983cd6f253502d6303e3d5 (diff)
downloaddrakwizard-0d0c2a95c4cd388197d191fc0129b54ad34f7eb2.tar
drakwizard-0d0c2a95c4cd388197d191fc0129b54ad34f7eb2.tar.gz
drakwizard-0d0c2a95c4cd388197d191fc0129b54ad34f7eb2.tar.bz2
drakwizard-0d0c2a95c4cd388197d191fc0129b54ad34f7eb2.tar.xz
drakwizard-0d0c2a95c4cd388197d191fc0129b54ad34f7eb2.zip
install package before loading modules to avoid file error
Diffstat (limited to 'drakwizard.pl')
-rwxr-xr-xdrakwizard.pl8
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};