X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/7d058f41993c955a19f1123b76938e292eee319e..b28c7ff7a1a595a068d50663966ea6690c2284fb:/browser.plp

diff --git a/browser.plp b/browser.plp
index 19011ab..aaafa03 100644
--- a/browser.plp
+++ b/browser.plp
@@ -99,9 +99,10 @@ if ($usage) {
 		$row->{$_} //= undef for @$verlist;  # ensure stable keys during iteration
 		while (my ($version, $usage) = each %$row) {
 			next if defined $supported{$version};
-			$_ = paddedver($_) for $version;
-			my $next = first { paddedver($_) ge $version } @$verlist; # or next
+			my $next = first { paddedver($_) ge paddedver($version) } @$verlist
+				or warn("No fallback found for $browser v$version; $usage% ignored"), next;
 			$row->{$next} += $usage;
+			$row->{$version} = 0;  # balance browser total
 		}
 	}
 }
@@ -163,16 +164,19 @@ print '<thead>', $header;
 print "\n<tr>";
 print '<td>' x 3;
 for my $browser (@browsers) {
-	printf('<td title="%s"%s>%s',
-		join(' ',
-			sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct),
-			"version $_",
-		),
-		(map {
-			defined $_ && !$_ && ' class="ex"'
-		} $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
-		showversions($_),
-	) for @{ $versions{$browser} };
+	for my $_ (@{ $versions{$browser} }) {
+		my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$_};
+		my $future = defined $release;
+		printf('<td title="%s"%s>%s',
+			join(' ',
+				sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct),
+				$future ? 'development' : (),
+				"version $_",
+			),
+			$future && ' class="ex"',
+			showversions($_),
+		);
+	}
 }
 print '<td>' x 1;
 say '</thead>';
@@ -325,10 +329,11 @@ sub paddedver {
 
 sub showversions {
 	my @span = ($_[0], @_>1 ? $_[-1] : ());
+	s/-.*// for $span[0];
 	for (@span) {
 		s/^\./0./;
 		s/x$/.*/;
-		s/-.*//;
+		s/.*-//;
 	}
 	return join('‒', @span);
 }