From: Thomas Hochstein <thh@inter.net>
Date: Sun, 27 May 2012 11:56:06 +0000 (+0200)
Subject: Fix parsing of more than one TLH in config.
X-Git-Tag: 0.01~1^2~7^2~7
X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=commitdiff_plain;h=43a0fc776902f3a7b3ea019e94b67cb7e4500039

Fix parsing of more than one TLH in config.

The code introduced in 17ffbebad562acd3af71328cdbf187297b5a9e6d
did not check the correct variable for being an array.

Improve an unrelated comment, too.

Signed-off-by: Thomas Hochstein <thh@inter.net>
---

diff --git a/gatherstats.pl b/gatherstats.pl
index b570cd8..d2d4faa 100755
--- a/gatherstats.pl
+++ b/gatherstats.pl
@@ -78,7 +78,7 @@ my $TLH;
 if ($Conf{'TLH'}) {
   # $Conf{'TLH'} is parsed as an array by Config::Auto;
   # make a flat list again, separated by :
-  if (ref($TLH) eq 'ARRAY') {
+  if (ref($Conf{'TLH'}) eq 'ARRAY') {
     $TLH = join(':',@{$Conf{'TLH'}});
   } else {
     $TLH  = $Conf{'TLH'};
@@ -90,7 +90,7 @@ if ($Conf{'TLH'}) {
     if ($TLH !~ /^[a-zA-Z0-9:]+$/);
   if ($TLH =~ /:/) {
     # reformat $TLH from a:b to (a)|(b),
-    # e.g. replace '.' by '|'
+    # e.g. replace ':' by ')|('
     $TLH =~ s/:/)|(/g;
     $TLH = '(' . $TLH . ')';
   };