From 6131e42296d7d821cbd9ff17a54dd6fda3fbe44a Mon Sep 17 00:00:00 2001 From: Frank Lichtenheld Date: Sun, 25 Nov 2007 14:15:52 +0100 Subject: [PATCH 1/1] Packages::Dispatcher: Allow '-' in lang parameters --- lib/Packages/Dispatcher.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Packages/Dispatcher.pm b/lib/Packages/Dispatcher.pm index 9d80f68..7329740 100755 --- a/lib/Packages/Dispatcher.pm +++ b/lib/Packages/Dispatcher.pm @@ -248,7 +248,7 @@ sub do_dispatch { replace => { all => \@ARCHIVES, default => \@ARCHIVES} }, exact => { default => 0, match => '^(\w+)$', }, - lang => { default => $http_lang, match => '^(\w+)$', }, + lang => { default => $http_lang, match => '^([\w-]+)$', }, source => { default => 0, match => '^(\d+)$', }, debug => { default => 0, match => '^(\d+)$', }, searchon => { default => 'names', match => '^(\w+)$', }, -- 2.39.2