browser: allow dashes in usage identifier
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 16 Dec 2010 00:10:09 +0000 (01:10 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Fri, 17 Dec 2010 20:24:33 +0000 (21:24 +0100)
browser.plp

index 2776a5b..53be344 100644 (file)
@@ -79,7 +79,7 @@ given ($get{usage} // 'wm') {
        when (!$_) {
                # none
        }
-       when (!/^\w+$/) {
+       when (!/^[a-z][\w-]+$/) {
                printf "<p>Invalid browser usage data request: <em>%s</em>",
                        'identifier must be alphanumeric name or <q>0</q>';
        }