while (my ($browser, $versions) = each %$row) {
ref $versions eq 'HASH' or next;
while (my ($version, $status) = each %$versions) {
+ $status =~ s/\h\#\d+//;
$rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$status};
}
}
sub formatnotes {
my @html = @_;
for (@html) {
+ s/\r\n?/\n/g; # windows returns
s/\h* $//gmx; # trailing whitespace
s/(?<= [^.\n]) $/./gmx; # consistently end each line by a period
Entity($_);