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

Stripping trailing space from configuration values

Browse Source
This commit is contained in:
Chris 2011-06-14 14:55:13 +01:00
parent 7b7fac78b3
commit bb601b5fa6
1 changed files with 17 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ConfigMicro.pm Normal file → Executable file
View File

@ -126,8 +126,9 @@ sub read {
# Handle attributes without quoted values - # or ; at any point will mark comments
} elsif($line =~ /^\s*([\w\-]+)\s*=\s*([^\#;]+)/ ) {
$self -> {$section} -> {$1} = $2;
my $key = $1;
$self -> {$section} -> {$key} = $2;
$self -> {$section} -> {$key} =~ s/^\s*(.*?)\s*$/$1/;
# bad input...
} else {
close(CFILE);