From: Wichert Akkerman <wakkerma@debian.org>
Date: Fri, 12 Sep 2003 15:21:53 +0000 (+0000)
Subject: Allow ~ in Files: field as well
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=44550a57e02e328d743a4db7a9807da3a5fafbc2;p=dpkg

Allow ~ in Files: field as well
---

diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl
index 7156ec31..cf949d05 100755
--- a/scripts/dpkg-source.pl
+++ b/scripts/dpkg-source.pl
@@ -545,7 +545,7 @@ if ($opmode eq 'build') {
     $files= $fi{'S Files'};
     for $file (split(/\n /,$files)) {
         next if $file eq '';
-        $file =~ m/^([0-9a-f]{32})[ \t]+(\d+)[ \t]+([0-9a-zA-Z][-+:.,=0-9a-zA-Z_]+)$/
+        $file =~ m/^([0-9a-f]{32})[ \t]+(\d+)[ \t]+([0-9a-zA-Z][-+:.,=0-9a-zA-Z_~]+)$/
             || &error("Files field contains bad line \`$file'");
         ($md5sum{$3},$size{$3},$file) = ($1,$2,$3);
         &setfile(\$tarfile) if $file =~ m/\.tar\.gz$/;