From 2fae246fe7ceceb7466cf89dd78aa963f5eed4e8 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 28 Sep 2013 21:46:35 +0200
Subject: Allow comments in config file

---
 Xerl/Page/Configure.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Xerl')

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;
   }
-- 
cgit v1.2.3