1.21: - lines with just one "#" became an option array named

"#" with empty entries, very weird, fixed


git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@9 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2009-10-10 16:09:33 +00:00
parent 7c03404fe9
commit 93316ddc2e
2 changed files with 28 additions and 27 deletions

View File

@@ -109,6 +109,7 @@ sub _open {
# patch by "Manuel Valente" <manuel@ripe.net>:
if (!$hierend) {
s/(?<!\\)#.+$//; # Remove comments
next if /^#/; # Remove lines beginning with "#"
next if /^\s*$/; # Skip empty lines
s/\\#/#/g; # remove the \ char in front of masked "#"
}