diff options
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 8 |
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}; |