From 44550a57e02e328d743a4db7a9807da3a5fafbc2 Mon Sep 17 00:00:00 2001
From: Wichert Akkerman <wakkerma@debian.org>
Date: Fri, 12 Sep 2003 15:21:53 +0000
Subject: [PATCH] Allow ~ in Files: field as well

---
 scripts/dpkg-source.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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$/;
-- 
2.39.5