summaryrefslogtreecommitdiffstats
path: root/drakwizard.pl
diff options
context:
space:
mode:
authorFlorent Villard <warly@mandriva.com>2003-08-22 21:29:12 +0000
committerFlorent Villard <warly@mandriva.com>2003-08-22 21:29:12 +0000
commitde6e60435383dbebc186933d54b1b9bc68aba118 (patch)
tree0f8111bf3792d88d39d64fde0793e20dd7305607 /drakwizard.pl
parent150bc87396011253a541ca0ad32250e926ab0ecc (diff)
downloaddrakwizard-de6e60435383dbebc186933d54b1b9bc68aba118.tar
drakwizard-de6e60435383dbebc186933d54b1b9bc68aba118.tar.gz
drakwizard-de6e60435383dbebc186933d54b1b9bc68aba118.tar.bz2
drakwizard-de6e60435383dbebc186933d54b1b9bc68aba118.tar.xz
drakwizard-de6e60435383dbebc186933d54b1b9bc68aba118.zip
fix the IFCFG reset of PATH env var which breaks packages installation
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 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));