Lubuntu/ubuntu-dev-tools
3
0
Fork 0
mirror of https://git.launchpad.net/ubuntu-dev-tools synced 2025-03-12 23:51:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

pull-revu-source: Check for the availability of libwww-perl, and print a

Browse Source 
more helpful error.
This commit is contained in:
Stefano Rivera 2011-02-13 15:29:15 +02:00
parent 3ab7f120da
commit ddf4bac12e
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debian/changelog vendored
View File

@ -13,8 +13,10 @@ ubuntu-dev-tools (0.117) UNRELEASED; urgency=low
qemu-user-static package, like Debian, since natty. qemu-user-static package, like Debian, since natty.
- Drop Build-Depend on Recommend on libapt-pkg-perl. No longer used. - Drop Build-Depend on Recommend on libapt-pkg-perl. No longer used.
* grab-merge: Show help when no arguments are provided. * grab-merge: Show help when no arguments are provided.
* pull-revu-source: Check for the availability of libwww-perl, and print a
more helpful error.
-- Stefano Rivera <stefanor@ubuntu.com> Sun, 13 Feb 2011 15:03:36 +0200 -- Stefano Rivera <stefanor@ubuntu.com> Sun, 13 Feb 2011 15:28:18 +0200
ubuntu-dev-tools (0.116) unstable; urgency=low ubuntu-dev-tools (0.116) unstable; urgency=low

8
pull-revu-source
View File

@ -21,7 +21,6 @@
use warnings; use warnings;
use strict; use strict;
use File::Basename; use File::Basename;
use LWP::Simple;
use Getopt::Long; use Getopt::Long;
my $REVU = "revu.ubuntuwire.com"; my $REVU = "revu.ubuntuwire.com";
@ -31,6 +30,13 @@ my($help)=0;
GetOptions('help' => \$help); GetOptions('help' => \$help);
usage(0) if($help); usage(0) if($help);
eval { require LWP::Simple; };
if ($@=~ m#^Can\'t locate LWP/Simple#) {
print(STDERR "Please install libwww-perl.\n");
exit(1);
}
use LWP::Simple;
dget(getURL()); dget(getURL());
sub getURL { sub getURL {