X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/153fca5bc148960bb538bfc43b79b944608d2b2f..3beb5afe2b512a6210caeb8744bc3f91e29c4e66:/browser.plp

diff --git a/browser.plp b/browser.plp
index beff4a9..2ba6e01 100644
--- a/browser.plp
+++ b/browser.plp
@@ -23,8 +23,11 @@ say "<h1>Browser compatibility</h1>\n";
 
 my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
 $_->{verrelease} = {
-	# mark last two (future) versions as unreleased, ensure current isn't
-	map { $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => undef } $_->{versions}
+	# mark last three (future) versions as unreleased, ensure current isn't
+	map {
+		$_->[-1] => 0, $_->[-2] => 0, $_->[-3] => 0,
+		$_->[-4] => undef,
+	} $_->{versions}
 } for values %{ $caniuse->{agents} };
 
 my %CSTATS = (
@@ -395,7 +398,7 @@ sub paddedver {
 	# normalised version number comparable as string (cmp)
 	shift =~ /(?:.*-|^)(\d*)(.*)/;
 	# matched (major)(.minor) of last value in range (a-B)
-	return sprintf('%02d', $1 || 0) . $2;
+	return sprintf('%02d', $1 || 99) . $2;
 }
 
 sub showversions {