diff options
Diffstat (limited to 'common/Varspaceval.pm')
-rw-r--r-- | common/Varspaceval.pm | 10 |
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}; |