[Savannah-cvs] administration/lists stats.pl

[Elfyn McBratney]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Elfyn McBratney <address@hidden>        04/09/12 08:31:42

Modified files:
        lists          : stats.pl 

Log message:
        syntactic sugar.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/lists/stats.pl.diff?tr1=1.4&tr2=1.5&r1=text&r2=text

Patches:
Index: administration/lists/stats.pl
diff -u administration/lists/stats.pl:1.4 administration/lists/stats.pl:1.5
--- administration/lists/stats.pl:1.4   Sun Sep 12 02:57:22 2004
+++ administration/lists/stats.pl       Sun Sep 12 08:31:42 2004
@@ -70,20 +70,20 @@
            $cur_description = $2;
        } else {
            die "not in a section on line $lineno near: $_" if $cur_section eq 
'';
-           $stats{$cur_section} = {} if !exists $stats{$cur_section};
+           $stats->{$cur_section} = {} if !exists $stats->{$cur_section};
 
            if (/^([A-Za-z0-9\-]+)$/) {
-               $stats{$cur_section}{'projects'} = [] if !exists 
$stats{$cur_section}{'projects'};
-               push @{$stats{$cur_section}{'projects'}}, $1;
-               $stats{$cur_section}{'count'}++;
+               $stats->{$cur_section}{'projects'} = [] if !exists 
$stats->{$cur_section}{'projects'};
+               push @{$stats->{$cur_section}{'projects'}}, $1;
+               $stats->{$cur_section}{'count'}++;
            } elsif (/^([A-Za-z0-9\-]+)\s+\(([A-Za-z]+)\)$/) {
-               $stats{$cur_section}{'count'}++;
-               $stats{$cur_section}{$1}{'evaluator'} = "\L$2";
+               $stats->{$cur_section}{'count'}++;
+               $stats->{$cur_section}{$1}{'evaluator'} = "\L$2";
            } elsif (/^([A-Za-z0-9\-]+)\s+\(([A-Za-z]+)(.+)\)$/) {
-               $stats{$cur_section}{'count'}++;
-               $stats{$cur_section}{$1}{'evaluator'} = "\L$2";
-               $stats{$cur_section}{$1}{'comment'} = "\L$3";
-               $stats{$cur_section}{$1}{'comment'} =~ s/;\s+//;
+               $stats->{$cur_section}{'count'}++;
+               $stats->{$cur_section}{$1}{'evaluator'} = "\L$2";
+               $stats->{$cur_section}{$1}{'comment'} = "\L$3";
+               $stats->{$cur_section}{$1}{'comment'} =~ s/;\s+//;
            } else {
                die "input error on line $lineno near: $_";
            }