From 5cde19017f6b64ab1e440633d59e36a231b57a3f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 16 Aug 2015 15:15:44 +0100
Subject: Properly quote package name when constructing regexp in
 complete_file_from_dsc.  Closes:#795736.  Also, grep the code for likely
 similar problems elsewhere and improve a (harmless) instance in
 dgit-repos-server.

---
 dgit | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'dgit')

diff --git a/dgit b/dgit
index 2d42f94..60b39e4 100755
--- a/dgit
+++ b/dgit
@@ -1481,7 +1481,7 @@ sub complete_file_from_dsc ($$) {
 	my $furl = $dscurl;
 	$furl =~ s{/[^/]+$}{};
 	$furl .= "/$f";
-	die "$f ?" unless $f =~ m/^${package}_/;
+	die "$f ?" unless $f =~ m/^\Q${package}\E_/;
 	die "$f ?" if $f =~ m#/#;
 	runcmd_ordryrun_local @curl,qw(-o),$tf,'--',"$furl";
 	next if !act_local();
-- 
cgit v1.2.3