pull-debian-source: use Getopt::Long

This commit is contained in:
Nathan Handler 2009-04-20 22:35:04 +00:00
parent ad0ee7b350
commit 6ed32f4dde
2 changed files with 10 additions and 3 deletions

8
debian/changelog vendored
View File

@ -1,10 +1,14 @@
ubuntu-dev-tools (0.73) UNRELEASED; urgency=low ubuntu-dev-tools (0.73) UNRELEASED; urgency=low
[ Siegfried-Angel Gevatter Pujals ]
* pbuilder-dist: * pbuilder-dist:
- Fallback to calling lsb_release if /etc/lsb-release doesn't - Fallback to calling lsb_release if /etc/lsb-release doesn't
exist; this makes it possible to run pbuilder-dist on Debian. exist; this makes it possible to run pbuilder-dist on Debian.
[ Nathan Handler ]
* pull-debian-source:
- Use Getopt::Long
-- Siegfried-Angel Gevatter Pujals <rainct@ubuntu.com> Sat, 18 Apr 2009 23:37:55 +0200 -- Nathan Handler <nhandler@ubuntu.com> Mon, 20 Apr 2009 22:32:13 +0000
ubuntu-dev-tools (0.72) jaunty; urgency=low ubuntu-dev-tools (0.72) jaunty; urgency=low

View File

@ -21,11 +21,14 @@ use warnings;
use strict; use strict;
use LWP::Simple; use LWP::Simple;
use File::Basename; use File::Basename;
use Getopt::Long;
die("Please install 'devscripts'\n") if(! grep -x "$_/dget", split(':',$ENV{'PATH'})); die("Please install 'devscripts'\n") if(! grep -x "$_/dget", split(':',$ENV{'PATH'}));
my($package)=$ARGV[0] || &usage(); my($package)=$ARGV[0] || &usage();
&usage() if(($package=~m/^\-\-help/i) || ($package=~m/^\-h/i)); my($help)=0;
GetOptions('help' => \$help);
&usage() if($help);
my($release)=$ARGV[1] || 'unstable'; my($release)=$ARGV[1] || 'unstable';
$release=&convertCodeName($release); $release=&convertCodeName($release);
&checkRelease($release); &checkRelease($release);