From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Tue, 21 Feb 2006 01:15:50 +0000 (+0000)
Subject: Hmm, architecture names can contain '-'
X-Git-Tag: switch-to-templates~97
X-Git-Url: https://git.deb.at/w?a=commitdiff_plain;h=34e7ce69a0076dd1cb795766eb3fa12d60e54878;p=deb%2Fpackages.git

Hmm, architecture names can contain '-'
---

diff --git a/cgi-bin/dispatcher.pl b/cgi-bin/dispatcher.pl
index ea7c3e2..f657808 100755
--- a/cgi-bin/dispatcher.pl
+++ b/cgi-bin/dispatcher.pl
@@ -152,7 +152,7 @@ my %params_def = ( keywords => { default => undef,
 				    match => '^([\w-]+)$',
 				    array => ',', var => \@archives,
 				    replace => { all => \@ARCHIVES,
-					     default => [qw(us security non-US)]} },
+						 default => [qw(us security non-US)]} },
 		   exact => { default => 0, match => '^(\w+)$',  },
 		   source => { default => 0, match => '^(\d+)$',  },
 		   searchon => { default => 'names', match => '^(\w+)$', },
@@ -163,7 +163,7 @@ my %params_def = ( keywords => { default => undef,
 		   subsection => { default => 'default', match => '^([\w-]+)$',
 				   array => ',', var => \@subsections,
 				   replace => { default => [] } },
-		   arch => { default => 'any', match => '^(\w+)$',
+		   arch => { default => 'any', match => '^([\w-]+)$',
 			     array => ',', var => \@archs, replace =>
 			     { any => \@ARCHITECTURES } },
 		   );