From 2d8ef982c433355f3716b2f3e0de9f814e3b3313 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 5 Dec 2010 19:42:04 +0100
Subject: [PATCH] browser: support new data version

---
 browser.plp | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/browser.plp b/browser.plp
index 2de8458..f385042 100644
--- a/browser.plp
+++ b/browser.plp
@@ -51,6 +51,7 @@ my %CSTATUS = (
 	cr    => 'l5', # candidate
 	pr    => 'l5', # proposed
 	rec   => 'l6', # recommendation
+	other => 'l6', # non-w3
 	ietf  => 'l6', # standard
 );
 my %versions;
@@ -66,11 +67,12 @@ $canihas ||= {
 	map {
 		$_ => +{
 			map {
-				($_->[4] =>  0 ), # future
-				($_->[3] =>  .5), # next
-				($_->[0] =>  5 ), # past
-				($_->[1] => 10 ), # previous
-				($_->[2] => 30 ), # current
+				my $zero = $#$_ - 2;  # baseline index
+				($_->[$zero - 2] =>  .5), # past
+				($_->[$zero - 1] => 10 ), # previous
+				($_->[$zero + 2] =>  0 ), # future
+				($_->[$zero + 1] =>  .5), # next
+				($_->[$zero    ] => 30 ), # current
 			} $caniuse->{agents}->{$_}->{versions}
 		}
 	} @browsers
-- 
2.30.0