Hmm, architecture names can contain '-'

diff --git a/cgi-bin/dispatcher.pl b/cgi-bin/dispatcher.pl
index ea7c3e2fd6a988582be92e13b5b18fdd590de7b0..f6578087c4e5a1a529710ba76e4b6d19caf21681 100755 (executable)
--- 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 } },
                   );