diff options
| author | Arnaud Desmons <adesmons@mandriva.com> | 2002-09-03 15:11:43 +0000 |
|---|---|---|
| committer | Arnaud Desmons <adesmons@mandriva.com> | 2002-09-03 15:11:43 +0000 |
| commit | 153426e066bf73504b59483727816bc8339616b9 (patch) | |
| tree | 754bfb2aa8a41bb09a8b95beb6c7b77614b53654 /common | |
| parent | 2a0c44a89ff2ebd4e3de5fa7e3cfc82c23706eff (diff) | |
| download | drakwizard-153426e066bf73504b59483727816bc8339616b9.tar drakwizard-153426e066bf73504b59483727816bc8339616b9.tar.gz drakwizard-153426e066bf73504b59483727816bc8339616b9.tar.bz2 drakwizard-153426e066bf73504b59483727816bc8339616b9.tar.xz drakwizard-153426e066bf73504b59483727816bc8339616b9.zip | |
now work with a white space before equal
Diffstat (limited to 'common')
| -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 ""); |