browser: 3rd last version is also development
authorMischa POSLAWSKY <perl@shiar.org>
Wed, 4 Feb 2015 07:33:28 +0000 (08:33 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 5 Feb 2015 21:46:21 +0000 (22:46 +0100)
An additional development entry was added somewhere since 2013.

browser.plp

index 9fd9e9069490b8142a50179236c13de36257893c..2ba6e01194ed5b89a5685b8978267b769f02dd90 100644 (file)
@@ -23,8 +23,11 @@ say "<h1>Browser compatibility</h1>\n";
 
 my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
 $_->{verrelease} = {
 
 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 = (
 } for values %{ $caniuse->{agents} };
 
 my %CSTATS = (