From c39ce7aa14f2424c874cc58b5ce5249a05fabe66 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 22 Jan 2004 20:24:49 +0000
Subject: perl_checker fixes

---
 nfs_wizard/NFS.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'nfs_wizard')

diff --git a/nfs_wizard/NFS.pm b/nfs_wizard/NFS.pm
index a27f32fa..e40ad943 100755
--- a/nfs_wizard/NFS.pm
+++ b/nfs_wizard/NFS.pm
@@ -106,7 +106,7 @@ $o->{pages} = {
 };
 
 sub new {
-    my ($class, $conf) = @_;
+    my ($class) = @_;
     bless {
 	    o   => $o,
        }, $class;
@@ -125,7 +125,7 @@ sub network_mask {
 }
 
 sub chooser {
-    $o->{var}{wiz_nfs_level} == 2 and 'shownet'
+    $o->{var}{wiz_nfs_level} == 2 || 'shownet'
 }
 
 sub do_it {
@@ -135,7 +135,7 @@ sub do_it {
     chomp($o->{var}{wiz_nfs_dir});
     -f $file and cp_af($file, $file.".orig");
     if ($o->{var}{wiz_nfs_level} == 2) {
-	my $mask = $wiz->{net}->itf_get("NETMASK");
+	#my $mask = $wiz->{net}->itf_get("NETMASK");
 	$line = "$o->{var}{wiz_nfs_dir} $o->{var}{wiz_netmask}(rw,no_root_squash,sync)\n";
     }
     else {
-- 
cgit v1.2.1