} else {
print STDERR "not counted in a directory: $f\n";
$ModCount{$f} += $cnt;
- $ModComments{$mod} += $comments;
+ $ModComments{$f} += $comments;
}
}
$tot = 0;
$totcmts = 0;
+printf "\n Code Comments\n";
foreach $m (sort (keys %ModCount)) {
printf "%-20s %6d %6d\n", $m, $ModCount{$m}, $ModComments{$m};
$tot += $ModCount{$m};