browser: append partial match of next cell versions
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 27 Apr 2017 19:58:01 +0000 (21:58 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 29 May 2017 17:21:27 +0000 (19:21 +0200)
browser.plp

index c609a57..c24df9e 100644 (file)
@@ -390,6 +390,10 @@ sub saybrowsercols {
                );
                unless (!defined $prev or $prev ~~ $compare) {
                        my @vercover = (map { @{$_} } @span);
+                       for ($ver ? @{$ver} : ()) {
+                               $data->{$_} eq $data->{$vercover[-1]} or last;
+                               push @vercover, $_;  # matches from next span start
+                       }
                        my $usage = sum(@{ $canihas->{$browser} }{@vercover});
 
                        # strip #\d note references from support class