X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=tools%2Fdebianqueued-0.9%2Fdebianqueued;fp=tools%2Fdebianqueued-0.9%2Fdebianqueued;h=c877aa5c74e23dfe46d28d7d5b199f5e7480a737;hb=9f6be43efff1782488a9505edc6705ae302d359a;hp=fb91ff8be4b578b77726850f496ae4381ca33043;hpb=a9f62a8826c9f30aee2a9f10c09044d68aae6220;p=dak.git diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued index fb91ff8b..c877aa5c 100755 --- a/tools/debianqueued-0.9/debianqueued +++ b/tools/debianqueued-0.9/debianqueued @@ -67,7 +67,7 @@ package main; ($main::hostname, undef, undef, undef, undef) = gethostbyname(hostname()); my %packages = (); -my $re_file_safe_prefix = qr/\A([a-zA-Z0-9][a-zA-Z0-9_.:~+-]*)/s; +my $re_file_safe_prefix = qr/\A([a-zA-Z0-9.][a-zA-Z0-9_.:~+-]*)/s; my $re_file_safe = qr/$re_file_safe_prefix\z/s; # extract -r and -k args