diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-07-27 07:49:13 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-07-27 07:49:13 +0000 |
| commit | 5396cabf5ddddc0449df16a8684bf35c734613ee (patch) | |
| tree | cbb4ed533089593f9946125858a3bee4e34153d3 /drakwizard.pl | |
| parent | 49cf8a60fc16ecfd80d330a73d6d633e7affbbea (diff) | |
| download | drakwizard-5396cabf5ddddc0449df16a8684bf35c734613ee.tar drakwizard-5396cabf5ddddc0449df16a8684bf35c734613ee.tar.gz drakwizard-5396cabf5ddddc0449df16a8684bf35c734613ee.tar.bz2 drakwizard-5396cabf5ddddc0449df16a8684bf35c734613ee.tar.xz drakwizard-5396cabf5ddddc0449df16a8684bf35c734613ee.zip | |
perl_checker cleanups
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/drakwizard.pl b/drakwizard.pl index c3b625c7..cc266ed2 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -58,9 +58,9 @@ my %wiz = ( foreach my $file (glob_("$::Wiz_more_dir/*.conf")) { - next unless -f "$file"; + next unless -f $file; my %tmp=getVarsFromSh($file); - $wiz{lc($file)}= [ $tmp{'NAME'}, $tmp{'DESCRIPTION'} ]; + $wiz{lc($file)} = [ $tmp{NAME}, $tmp{DESCRIPTION} ]; } @ARGV = grep { ! /^--/ } @ARGV; @@ -82,10 +82,10 @@ if ($err) { $in->exit; } -$::in = $in; if ($wiz->{o}{use_new_data_structure}) { require wizards; my $wizard = wizards->new; + $::in = $in; $wizard->safe_process($wiz->{o}, $in); } else { wizard($wiz->{o}); |