don't have a useless empty hash in wizards objects, use the wizards hash

1 files changed, 4 insertions, 5 deletions

diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index b98c30d8e..0a93d0c78 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -389,15 +389,14 @@ sub alert_config() {
     my %services_to_check = map { $_ => 1 } split(':', $options{SERVICES});
 
     $::isWizard = 1;
-    use wizards;
-    my $w = wizards->new;
     my $mode;
     my $cron_file = "/etc/cron.hourly/logdrake_service";
     my %modes = (
                    configure => N("Configure the mail alert system"),
                    disable =>  N("Stop the mail alert system"),
                   );
-    my $wiz = {
+    require wizards;
+    my $wiz = wizards->new({
                defaultimage => "logdrake.png",
                name => N("Mail alert"),
                pages => {
@@ -460,8 +459,8 @@ sub alert_config() {
                                   no_back => 1,
                                 },
                         },
-              };
-    $w->process($wiz, $in);
+              });
+    $wiz->process($in);
     return if $mode eq 'disable';
     
     $options{SERVICES} = join ':', grep { $services_to_check{$_} } sort keys %services_to_check;