# preceding row without any colspan to work around gecko bug
print "\n<tr>";
for my $browser (@browsers) {
- for (@{ $versions{$browser} }) {
+ for my $span (@{ $versions{$browser} }) {
my $lastver = first {
!defined $caniuse->{agents}->{$browser}->{verrelease}->{$_} # stable
- } reverse @{$_};
+ } reverse @{$span};
printf('<td title="%s"%s>%s',
join(' ',
- sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct),
- 'version ' . showversions(@{$_}, undef),
- $_->[-1] eq $lastver ? () : '(development)',
+ sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{ @{$span} }) * $usagepct),
+ 'version ' . showversions(@{$span}, undef),
+ $span->[-1] eq $lastver ? () : '(development)',
),
!defined $lastver && ' class="ex"',
showversions($lastver),