summaryrefslogtreecommitdiffstats
path: root/common/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'common/scripts')
-rwxr-xr-xcommon/scripts/Vareqval.pm14
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 "");