- allow ? in urls

[projects/distfiles.git] / file-fetcher.pl

diff --git a/file-fetcher.pl b/file-fetcher.pl
index 430dea0b06c67f05c9f86e739c32feb8c28dc6bc..47522aedad8c4ea13536e53cea46226ef4d172ef 100644 (file)
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -58,7 +58,7 @@ sub read_spool_file()
       $problems .= $_;
       next;
     }
-    /^([a-f0-9]{32})\s+((ftp|http|no-url|no-url-copy):\/\/([a-z0-9A-Z:\+\~\.\-\/_]|\%[0-9])+)\s*$/ 
+    /^([a-f0-9]{32})\s+((ftp|http|no-url|no-url-copy):\/\/([\?a-z0-9A-Z:\+\~\.\-\/_]|\%[0-9])+)\s*$/ 
        or die "$file: corrupted";
     push @md5, $1;
     $url{$1} = $2;