X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/a8e253aa1f8e235a4793e0a3c06442ddc3db3117..49f032c3a1a5d2feb1215ff2f437ab3b82ca4beb:/browser.plp

diff --git a/browser.plp b/browser.plp
index 7355aa7..04599d0 100644
--- a/browser.plp
+++ b/browser.plp
@@ -16,12 +16,12 @@ Html({
 		ie internet explorer firefox chrome safari webkit opera
 	'],
 	stylesheet => [qw'circus dark mono red light'],
-	data => ['browser-support.inc.pl'],
+	data => ['data/browser/support.inc.pl'],
 });
 
 say "<h1>Browser compatibility</h1>\n";
 
-my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
+my $caniuse = do 'data/browser/support.inc.pl' or die $! || $@;
 $_->{verrelease} = {
 	# mark last three (future) versions as unreleased, ensure current isn't
 	map {
@@ -87,11 +87,11 @@ given ($get{usage} // 'wm') {
 	when (!$_) {
 		# none
 	}
-	when (!/^[a-z][\w-]+$/) {
+	when (!m{ \A [a-z]\w+ (?:/\d[\d-]*\d)? \z }x) {
 		printf "<p>Invalid browser usage data request: <em>%s</em>",
 			'identifier must be alphanumeric name or <q>0</q>';
 	}
-	$canihas = do "browser-usage-$_.inc.pl" or do {
+	$canihas = do "data/browser/usage-$_.inc.pl" or do {
 		printf "<p>Browser usage data not found: <em>%s</em>", $! || $@;
 		break;
 	};