diff options
Diffstat (limited to 'perl-install/standalone/draksambashare')
| -rwxr-xr-x | perl-install/standalone/draksambashare | 18 |
1 files changed, 8 insertions, 10 deletions
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() } |