From a23b272836c830690e3c953b776d0ce0a6c0ac66 Mon Sep 17 00:00:00 2001
From: Michael Rasmussen <mir@datanom.net>
Date: Tue, 22 Jul 2014 02:04:32 +0200
Subject: [PATCH] Allow comments in files

---
 DHCPServer.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DHCPServer.pm b/DHCPServer.pm
index 7c43f82..5b6701f 100644
--- a/DHCPServer.pm
+++ b/DHCPServer.pm
@@ -435,7 +435,7 @@ sub read_lease_file {
 				$self->logger("Key: $key");
 			} else {
 				next if $error;
-				next if ($_ =~ /^\s*}\s*/ || $_ =~ /^\s*$/);
+				next if ($_ =~ /^\s*}\s*/ || $_ =~ /^\s*$/ || $_ =~ /^\s*#.*/);
 				if ($_ =~ /^\s*(starts|ends|binding state|hardware ethernet|client-hostname)\s+(.+)\s*;/) {
 					$lease->{$1} = $2;
 					$self->logger("Key: $1 Value: $2");
-- 
2.39.2