X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=blobdiff_plain;f=gatherstats.pl;fp=gatherstats.pl;h=d2d4faa3365c4c281a0319bc2e88c8a029081365;hp=b570cd821fdefacb81c436071db1716ce7907755;hb=43a0fc776902f3a7b3ea019e94b67cb7e4500039;hpb=1fa947994652e526566d286e1527e2b58860cc83

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 . ')';
   };