From c2dda5abbae0ef821d2d8c93e2cf90972279f1f8 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 3 Jan 2006 15:41:30 +0000
Subject: don't have a useless empty hash in wizards objects, use the wizards
 hash

---
 perl-install/standalone/drakups | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'perl-install/standalone/drakups')

diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 60d626f40..1030cbc5e 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -63,10 +63,7 @@ sub add_device_wizard {
     my ($in, $config) = @_;
     my ($ups_models, $model_list) = readDriversList();
 
-    use wizards;
     my ($ups, $vendor, $model, $extra, $name, $driver, $port, @new_devices, $opts);
-    my $w = wizards->new;
-    my $wiz;
     my %methods = (
                    # network => N("Connected through the network"), # need SNMP probe
                    # serial => N("Connected through a serial port"),
@@ -75,7 +72,8 @@ sub add_device_wizard {
                    manual => N("Manual configuration"),
                   );
     my $method = $methods{auto};
-    $wiz = {
+    require wizards;
+    my $wiz = wizards->new({
             #defaultimage => "logdrake.png",    # FIXME
             name => N("Add an UPS device"),
             pages => {
@@ -164,8 +162,8 @@ Please fill in its name, its driver and its port.", $model, $vendor);
                               next => 0
                              },
                      },
-           };
-    $w->process($wiz, $in);
+           });
+    $wiz->process($in);
 
     $config->{$name}{driver} = $driver;
     $config->{$name}{port} = $port;
-- 
cgit v1.2.1