Grr, properly allow ~ in version numbers

diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl
index 5864094160aa7ea46263efbfa2d6138041dffba3..7156ec31a2e123555e74037a19f9dbaeeec200f0 100755 (executable)
--- a/scripts/dpkg-source.pl
+++ b/scripts/dpkg-source.pl
@@ -523,7 +523,7 @@ if ($opmode eq 'build') {
         $dscformat=$fi{'S Format'};
     }
 
-    $sourcepackage =~ m/[^.0-9~]/ &&
+    $sourcepackage =~ m/[^.0-9]/ &&
         &error("dsc format contains illegal character \`$&'");
 
     $sourcepackage= $fi{'S Source'};
@@ -533,7 +533,7 @@ if ($opmode eq 'build') {
         &error("source package name is too short or starts with non-alphanum");
 
     $version= $fi{'S Version'};
-    $version =~ m/[^-+:.0-9a-zA-Z]/ &&
+    $version =~ m/[^-+:.0-9a-zA-Z~]/ &&
         &error("version number contains illegal character \`$&'");
     $version =~ s/^\d+://;
     if ($version =~ m/-([^-]+)$/) {