From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Sun, 25 Nov 2007 13:15:52 +0000 (+0100)
Subject: Packages::Dispatcher: Allow '-' in lang parameters
X-Git-Url: https://git.deb.at/?a=commitdiff_plain;h=6131e42296d7d821cbd9ff17a54dd6fda3fbe44a;p=deb%2Fpackages.git

Packages::Dispatcher: Allow '-' in lang parameters
---

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+)$', },