Multiple check 'dget' if there are multiple PATHs

This commit is contained in:
Mitsuya Shibata 2009-03-15 01:41:38 +09:00
parent 2cfb651336
commit e97aef9426

View File

@ -22,7 +22,7 @@ use strict;
use LWP::Simple;
use File::Basename;
die("Please install 'devscripts'\n") if(! grep -x "$_/dget",$ENV{'PATH'});
die("Please install 'devscripts'\n") if(! grep -x "$_/dget", split(':',$ENV{'PATH'}));
my($package)=$ARGV[0] || &usage();
&usage() if(($package=~m/^\-\-help/i) || ($package=~m/^\-h/i));