diff options
| -rwxr-xr-x | common/scripts/Vareqval.pm | 14 |
1 files 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 (<F>) { 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 ""); |