rename wizards hash to avoid confusion

1 files changed, 7 insertions, 7 deletions

diff --git a/drakwizard.pl b/drakwizard.pl
index fe6425c2..df20ec4b 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -38,7 +38,7 @@ $::Wiz_dir = '/usr/share/wizards/';
 $::Wiz_more_dir = "/etc/wizard.d/";
 my $in = interactive->vnew;
 
-my %wiz = (
+my %all_wizards = (
     apache2 => [ 'Apache', N("Apache2 web server"), { ver => 2 } ],
     samba => [ 'Samba', N("Samba server") ],
     sambashare => [ 'Sambashare', N("Manage Samba share") ],
@@ -64,22 +64,22 @@ foreach my $file (glob_("$::Wiz_more_dir/*.conf"))
 {
 	next unless -f $file;
 	my %tmp=getVarsFromSh($file);
-	$wiz{lc($file)} = [ $tmp{NAME}, $tmp{DESCRIPTION} ];
+	$all_wizards{lc($file)} = [ $tmp{NAME}, $tmp{DESCRIPTION} ];
 }
 
 @ARGV = grep { ! /^--/ } @ARGV;
-if (!defined($wiz{$ARGV[0]})) {
+if (!defined($all_wizards{$ARGV[0]})) {
     $in->ask_from(
 		  N("Drakwizard wizard selection"),
 		  N("Please select a wizard"),
-		  [{ val => \$ARGV[0], list => [sort { $wiz{$a}[1] cmp $wiz{$b}[1] } keys %wiz], format => sub { $wiz{$_[0]}[1] }}]
+		  [{ val => \$ARGV[0], list => [sort { $all_wizards{$a}[1] cmp $all_wizards{$b}[1] } keys %all_wizards], format => sub { $all_wizards{$_[0]}[1] }}]
 		 );
-    push @ARGV, @{$wiz{$ARGV[0]}}[0,2];
+    push @ARGV, @{$all_wizards{$ARGV[0]}}[0,2];
 }
 
-require "MDK/Wizard/$wiz{$ARGV[0]}[0].pm";
+require "MDK/Wizard/$all_wizards{$ARGV[0]}[0].pm";
 
-my ($wiz, $err) = "MDK::Wizard::$wiz{$ARGV[0]}[0]"->new($wiz{$ARGV[0]}[2]);
+my ($wiz, $err) = "MDK::Wizard::$all_wizards{$ARGV[0]}[0]"->new($all_wizards{$ARGV[0]}[2]);
 if ($err) {
     $::Wizard_finished = 1;
     $in->ask_okcancel(N("Error"), translate($err));