diff options
Diffstat (limited to 'Xerl')
| -rw-r--r-- | Xerl/Page/Configure.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Xerl/Page/Configure.pm b/Xerl/Page/Configure.pm index b19aec1..972a805 100644 --- a/Xerl/Page/Configure.pm +++ b/Xerl/Page/Configure.pm @@ -28,7 +28,8 @@ sub parse($) { my $re = qr/^(.+?) *=(.+?) *\n?$/; for ( @{ $file->get_array() } ) { - next if /^ *#/; + next if /^\s*#/; + s/#.*//; $self->setval( $1, $self->eval($2) ) if $_ =~ $re; } |