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 7e184f29..192f1e41 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -20,7 +20,6 @@ use lib qw(/usr/lib/libDrakX); use strict; -our ($Wizard_title, $Wizard_pix_up, $lib_script, $perl_module, %variable, $in, $rpm, %chooser_hash, $welcome, $perl_module_name, $verbose, %description, $summary, $summary_func, %disabled, $current_page, %bool); use standalone; use interactive; @@ -29,13 +28,14 @@ use common; #- I18N. push @::textdomains, 'drakwizard'; -$::DEBUG = 1; +$::DEBUG = 0; $::isWizard = 1; $::Wizard_no_previous = 1; $::Wizard_title = "Drakwizard"; $::Wiz_dir = '__WIZ_HOME__'; -my $in = 'interactive'->vnew('/bin/su', 'default'); +my $in = interactive->vnew; my $standalone = 1; + my %wiz = ( apache => ['Apache', "Apache web server"], @@ -63,7 +63,7 @@ if (!defined($wiz{$ARGV[0]})) { require "MDK/Wizard/$wiz{$ARGV[0]}[0].pm"; -my ($wiz, $err) = $wiz{$ARGV[0]}[0]->new($wiz{$ARGV[0]}[2]); +my ($wiz, $err) = "MDK::Wizard::$wiz{$ARGV[0]}[0]"->new($wiz{$ARGV[0]}[2]); if ($err) { $::Wizard_finished = 1; $in->ask_okcancel("error", N($err)); |