From 1075c75ced12036e45fbc738bacbfe16dd2fa669 Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Wed, 7 Aug 2002 11:23:42 +0000 Subject: fixed when an empty line is read and interpreted as data --- common/scripts/Vareqval.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'common') 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; } -- cgit v1.2.1