From 2765cc28bc12816aba029f0fc2767b5d0951c405 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 11 Nov 2005 09:30:08 +0000
Subject: [PATCH]  * should now also ignore comment starting with ; (bug
 45something)

git-svn-id: trunk@1720 -
---
 packages/base/netdb/netdb.pp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/packages/base/netdb/netdb.pp b/packages/base/netdb/netdb.pp
index ae600be6ab..6340f571fe 100644
--- a/packages/base/netdb/netdb.pp
+++ b/packages/base/netdb/netdb.pp
@@ -209,7 +209,13 @@ begin
       Readln(R,L);
       I:=Pos('#',L);
       If (I<>0) then
-        L:=Copy(L,1,I-1);
+        L:=Copy(L,1,I-1)
+      else
+        begin
+          I:=Pos(';',L);
+          If (I<>0) then
+            L:=Copy(L,1,I-1)
+	end;
       If CheckDirective('nameserver') then
         begin
         H:=HostToNet(StrToHostAddr(L));