From c2dda5abbae0ef821d2d8c93e2cf90972279f1f8 Mon Sep 17 00:00:00 2001 From: Olivier Blin 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/network/netconnect.pm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 3b0fa1153..adf7f2084 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -243,9 +243,8 @@ sub real_main { use locale; set_l10n_sort(); - # main wizard: - my $wiz; - $wiz = + require wizards; + my $wiz = wizards->new( { defaultimage => "drakconnect.png", name => N("Network & Internet Configuration"), @@ -1394,7 +1393,8 @@ Test your connection via net_monitor or mcc. If your connection does not work, y end => 1, }, }, - }; + }); + $wiz->process($in); #- keeping the translations in case someone want to restore these texts if_(0, @@ -1413,9 +1413,6 @@ Click on Ok to keep your configuration, or cancel to reconfigure your Internet & N("You have configured multiple ways to connect to the Internet.\nChoose the one you want to use.\n\n"), N("Internet connection"), ); - - require wizards; - wizards->new->process($wiz, $in); } sub safe_main { -- cgit v1.2.1