Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow more characters in keys.

Browse Source
This commit is contained in:
Chris 2013-10-24 23:31:14 +01:00
parent 3fb28754d7
commit d869695645
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Webperl/ConfigMicro.pm
View File

@ -139,16 +139,16 @@ sub read {
$section = $1;
# Attribues with quoted values. value can contain anything other than "
} elsif($line =~ /^\s*([\w:-]+)\s*=\s*\"([^\"]+)\"/ ) {
} elsif($line =~ /^\s*([\w. :-]+)\s*=\s*\"([^\"]+)\"/ ) {
$self -> {$section} -> {$1} = $2;
# Handle attributes without quoted values - # or ; at any point will mark comments
} elsif(!$self -> {"inline_comments"} && $line =~ /^\s*([\w:-]+)\s*=\s*(.+)$/ ) {
} elsif(!$self -> {"inline_comments"} && $line =~ /^\s*([\w. :-]+)\s*=\s*(.+)$/ ) {
my $key = $1;
$self -> {$section} -> {$key} = $2;
$self -> {$section} -> {$key} =~ s/^\s*(.*?)\s*$/$1/;
} elsif($self -> {"inline_comments"} && $line =~ /^\s*([\w:-]+)\s*=\s*([^;#]+)/ ) {
} elsif($self -> {"inline_comments"} && $line =~ /^\s*([\w. :-]+)\s*=\s*([^;#]+)/ ) {
my $key = $1;
$self -> {$section} -> {$key} = $2;
$self -> {$section} -> {$key} =~ s/^\s*(.*?)\s*$/$1/;