From e97aef94263c7f1778b1dc5a6e57e1e03b3ed326 Mon Sep 17 00:00:00 2001
From: Mitsuya Shibata <mty.shibata@gmail.com>
Date: Sun, 15 Mar 2009 01:41:38 +0900
Subject: [PATCH] Multiple check 'dget' if there are multiple PATHs

---
 pull-debian-source | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pull-debian-source b/pull-debian-source
index 67ddb58..1b19e25 100755
--- a/pull-debian-source
+++ b/pull-debian-source
@@ -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));