From 153426e066bf73504b59483727816bc8339616b9 Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Tue, 3 Sep 2002 15:11:43 +0000 Subject: now work with a white space before equal --- common/scripts/Vareqval.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/common/scripts/Vareqval.pm b/common/scripts/Vareqval.pm index 77993d99..110ad4ec 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.2 2002-08-07 11:23:42 adesmons Exp $ +# $Id: Vareqval.pm,v 1.3 2002-09-03 15:11:43 adesmons Exp $ # Module for loding and committing informations in a VAR = value file type @@ -24,14 +24,14 @@ sub get { while () { my ($v, $val, $val2) = - /^\s* # leading space - (\w+) = \s* # variable + /^\s* # leading space + (\w+)\s*=\s* # variable ( - "(.*)" # double-quoted text - | '(.*)' # single-quoted text - | [^'"\s]* # normal text + "(.*)" # double-quoted text + | '(.*)' # single-quoted text + | [^'"\s]* # normal text ) - \s*$ # end of line + \s*$ # end of line /x; no warnings; next if (!defined $v || $v eq ""); -- cgit v1.2.1