diff options
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -469,7 +469,7 @@ our %defcfg = ('dgit.default.distro' => 'debian', 'dgit-distro.debian.sshpsql-dbname' => 'service=projectb', 'dgit-distro.debian.upload-host' => 'ftp-master', # for dput 'dgit-distro.debian.mirror' => 'http://ftp.debian.org/debian/', - 'dgit-distro.debian.backports-quirk' => '%-backports*', + 'dgit-distro.debian.backports-quirk' => '(squeeze)-backports*', 'dgit-distro.debian-backports.mirror' => 'http://backports.debian.org/debian-backports/', 'dgit-distro.test-dummy.ssh' => "$td/ssh", 'dgit-distro.test-dummy.username' => "alice", @@ -515,9 +515,10 @@ sub access_quirk () { 'RETURN-UNDEF'); if (defined $backports_quirk) { my $re = $backports_quirk; - $re =~ s/[^-0-9a-z_\%*]/\\$&/ig; + $re =~ s/[^-0-9a-z_\%*()]/\\$&/ig; $re =~ s/\*/.*/g; - $re =~ s/\%/([-0-9a-z_]+)/ or badcfg "backports-quirk needs \%"; + $re =~ s/\%/([-0-9a-z_]+)/ + or $re =~ m/[()]/ or badcfg "backports-quirk needs \% or ( )"; if ($isuite =~ m/^$re$/) { return ('backports',"$basedistro-backports",$1); } |