Allow ~ in Files: field as well

diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl
index 7156ec31a2e123555e74037a19f9dbaeeec200f0..cf949d05709cb9d24e6a9a4125a14e8e97d17810 100755 (executable)
--- 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$/;