Get empty 'virtual' hierarchies working.

[usenet/newsstats.git] / NewsStats.pm

diff --git a/NewsStats.pm b/NewsStats.pm
index f0a4066..bfcb37b 100644 (file)
--- a/NewsStats.pm
+++ b/NewsStats.pm
@@ -33,6 +33,7 @@ require Exporter;
   SplitPeriod
   ListMonth
   ListNewsgroups
   SplitPeriod
   ListMonth
   ListNewsgroups

+  ParseHierarchies

   ReadGroupList
   OutputData
   FormatOutput
   ReadGroupList
   OutputData
   FormatOutput


@@ -230,8 +231,9 @@ sub ReadGroupList {
   my %ValidGroups;
   open (my $LIST,"<$Filename") or &Bleat(2,"Cannot read $Filename: $!");
   while (<$LIST>) {
   my %ValidGroups;
   open (my $LIST,"<$Filename") or &Bleat(2,"Cannot read $Filename: $!");
   while (<$LIST>) {

-    s/^(\S+).*$/$1/;
+    s/^\s*(\S+).*$/$1/;

     chomp;
     chomp;

+    next if /^$/;

     $ValidGroups{$_} = '1';
   };
   close $LIST;
     $ValidGroups{$_} = '1';
   };
   close $LIST;