From 5396cabf5ddddc0449df16a8684bf35c734613ee Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 27 Jul 2004 07:49:13 +0000
Subject: perl_checker cleanups

---
 drakwizard.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'drakwizard.pl')

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});
-- 
cgit v1.2.1