perl_checker fixes

1 files changed, 4 insertions, 6 deletions

diff --git a/common/Varspaceval.pm b/common/Varspaceval.pm
index 3f35a992..9e996368 100644
--- a/common/Varspaceval.pm
+++ b/common/Varspaceval.pm
@@ -4,7 +4,7 @@
 #
 # Author: Philippe Hetroy, phetroy@mandrakesoft.com
 #
-# $Id: Varspaceval.pm,v 1.4 2004-01-20 11:29:39 tvignaud Exp $
+# $Id: Varspaceval.pm,v 1.5 2004-01-22 20:24:48 tvignaud Exp $
 # Module for loding and committing informations in a VAR = value file type
 
 package MDK::Wizard::Varspaceval;
@@ -16,8 +16,7 @@ use Data::Dumper;
 # Return a hash containg the key and the value
 # ATTENTION : in the conf file, an empty value is returnes as a spaced value (mandatory because of XML compatibility)
 sub get {
-    my $self = shift;
-    my $file = shift;
+    my ($_self, $file) = @_;
     my %l;
     local *F; open F, $file or return;
     local $_;
@@ -43,8 +42,7 @@ sub get {
 
 # Commits changes in conf files and ifconfig
 sub commit {
-    my $self = shift;
-    my ($file, $hash) = @_;
+    my ($_self, $file, $hash) = @_;
     local *F;
 
     my $output = "";
@@ -58,7 +56,7 @@ sub commit {
                 $output .= $_;
                 next;
             };
-            next if (!exists $hash->{$key});    #Elt has been removed
+            next if !exists $hash->{$key};    #Elt has been removed
             no warnings;
             $val = $hash->{$key};
             delete $hash->{$key};