From ddf4bac12eb5d06be700ccb087587fbfeb7b2a51 Mon Sep 17 00:00:00 2001
From: Stefano Rivera <stefanor@ubuntu.com>
Date: Sun, 13 Feb 2011 15:29:15 +0200
Subject: [PATCH] pull-revu-source: Check for the availability of libwww-perl,
 and print a more helpful error.

---
 debian/changelog | 4 +++-
 pull-revu-source | 8 +++++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 9342ad6..fda97f4 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -13,8 +13,10 @@ ubuntu-dev-tools (0.117) UNRELEASED; urgency=low
       qemu-user-static package, like Debian, since natty.
     - Drop Build-Depend on Recommend on libapt-pkg-perl. No longer used.
   * 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
 
diff --git a/pull-revu-source b/pull-revu-source
index 90bba61..6a9d747 100755
--- a/pull-revu-source
+++ b/pull-revu-source
@@ -21,7 +21,6 @@
 use warnings;
 use strict;
 use File::Basename;
-use LWP::Simple;
 use Getopt::Long;
 
 my $REVU = "revu.ubuntuwire.com";
@@ -31,6 +30,13 @@ my($help)=0;
 GetOptions('help' => \$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());
 
 sub getURL {