pull-debian-source: do not fail if package name contains a hypen

This commit is contained in:
Luca Falavigna 2009-01-25 16:39:55 +01:00
parent a6c88f7e6a
commit 21de3bb377

View File

@ -23,7 +23,7 @@ use LWP::Simple;
use File::Basename;
my($package)=$ARGV[0] || &usage();
&usage() if(($package=~m/\-\-help/i) || ($package=~m/\-h/i));
&usage() if(($package=~m/^\-\-help/i) || ($package=~m/^\-h/i));
my($release)=$ARGV[1] || 'unstable';
&checkRelease($release);
my($dsc)=&getDSC(&getMadison(&getURL($package,$release)));