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/standalone/draksambashare | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) (limited to 'perl-install/standalone/draksambashare') diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare index 54ce32fc6..3ff11fba1 100755 --- a/perl-install/standalone/draksambashare +++ b/perl-install/standalone/draksambashare @@ -366,10 +366,9 @@ sub printers_section() { } sub add_entry() { - use wizards; + require wizards; my ($wiz_addshare_name, $wiz_addshare_comment, $wiz_addshare_path); - my $w = wizards->new; - my $wiz = { + my $wiz = wizards->new({ name => N("Add a Samba share"), pages => { welcome => { @@ -426,21 +425,20 @@ sub add_entry() { next => 0, }, } - }; - $w->process($wiz, $in); + }); + $wiz->process($in); $::isWizard = 0; gtkset_mousecursor_normal(); } sub add_printers_entry() { - use wizards; - my $w = wizards->new; + require wizards; my %print = ( 1 => N("pdf-gen - a PDF generator"), 2 => N("printers - all printers available"), ); my $wiz_todo; - my $wiz = { + my $wiz = wizards->new({ name => N("Add Special Printer share"), pages => { welcome => { @@ -533,8 +531,8 @@ sub add_printers_entry() { next => 0, }, } - }; - $w->process($wiz, $in); + }); + $wiz->process($in); $::isWizard = 0; # gtkset_mousecursor_normal() } -- cgit v1.2.1