From 34e7ce69a0076dd1cb795766eb3fa12d60e54878 Mon Sep 17 00:00:00 2001 From: Frank Lichtenheld Date: Tue, 21 Feb 2006 01:15:50 +0000 Subject: [PATCH] Hmm, architecture names can contain '-' --- cgi-bin/dispatcher.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 } }, ); -- 2.39.2