From: Ansgar Burchardt <ansgar@debian.org>
Date: Fri, 21 Aug 2015 06:56:52 +0000 (+0200)
Subject: Do not delete files starting with a dot.
X-Git-Url: https://git.decadent.org.uk/gitweb/?p=dak.git;a=commitdiff_plain;h=9f6be43efff1782488a9505edc6705ae302d359a

Do not delete files starting with a dot.

28903fa31f90164d3ea784b31be0e9a19fc5fd8c tried to allow temporary
files used by rsync, however these started with a dot and were still
deleted.
---

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