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

Too many parenthesis.

Browse Source
This commit is contained in:
Chris 2013-10-24 23:35:45 +01:00
parent 07a3a609d8
commit 7fd919a628
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Webperl/ConfigMicro.pm
View File

@ -143,12 +143,12 @@ sub read {
$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*(.*?\w)\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*(.*?\w)\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/;