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

Names can end in non-alphanumerics.

Browse Source
This commit is contained in:
Chris 2014-03-19 13:07:26 +00:00
parent c1c9a153a2
commit c4dda13372
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; $section = $1;
# Attribues with quoted values. value can contain anything other than " # Attribues with quoted values. value can contain anything other than "
} elsif($line =~ /^\s*(.*?\w)\s*=\s*\"([^\"]+)\"/ ) { } elsif($line =~ /^\s*(.*?)\s*=\s*\"([^\"]+)\"/ ) {
$self -> {$section} -> {$1} = $2; $self -> {$section} -> {$1} = $2;
# Handle attributes without quoted values - # or ; at any point will mark comments # 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*(.*?)\s*=\s*(.+)$/ ) {
my $key = $1; my $key = $1;
$self -> {$section} -> {$key} = $2; $self -> {$section} -> {$key} = $2;
$self -> {$section} -> {$key} =~ s/^\s*(.*?)\s*$/$1/; $self -> {$section} -> {$key} =~ s/^\s*(.*?)\s*$/$1/;
} elsif($self -> {"inline_comments"} && $line =~ /^\s*(.*?\w)\s*=\s*([^;#]+)/ ) { } elsif($self -> {"inline_comments"} && $line =~ /^\s*(.*?)\s*=\s*([^;#]+)/ ) {
my $key = $1; my $key = $1;
$self -> {$section} -> {$key} = $2; $self -> {$section} -> {$key} = $2;
$self -> {$section} -> {$key} =~ s/^\s*(.*?)\s*$/$1/; $self -> {$section} -> {$key} =~ s/^\s*(.*?)\s*$/$1/;