diff options
| -rwxr-xr-x | common/scripts/Vareqval.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/common/scripts/Vareqval.pm b/common/scripts/Vareqval.pm index f5f31929..77993d99 100755 --- a/common/scripts/Vareqval.pm +++ b/common/scripts/Vareqval.pm @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # Author Philippe Hétroy, phetroy@mandrakesoft.com -# $Id: Vareqval.pm,v 1.1 2002-07-26 09:19:56 adesmons Exp $ +# $Id: Vareqval.pm,v 1.2 2002-08-07 11:23:42 adesmons Exp $ # Module for loding and committing informations in a VAR = value file type @@ -34,6 +34,7 @@ sub get { \s*$ # end of line /x; no warnings; + next if (!defined $v || $v eq ""); $l{$v} = defined $val2 ? $val2 : $val; } |