r52463 - in /trunk/dh-make-perl: debian/changelog lib/DhMakePerl.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Feb 10 17:53:36 2010
New Revision: 52463

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52463
Log:
do not die when WNPP can't be checked for ITPs

We only warn now.

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=52463&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Wed Feb 10 17:53:36 2010
@@ -9,6 +9,7 @@
   * document that override mechanism is not used with --refresh
   * add tests for --refresh
   * when a required dependency is not found, scan WNPP for a corresponding ITP
+  * do not die when WNPP can't be checked for ITPs
 
  -- Damyan Ivanov <dmn at debian.org>  Fri, 05 Feb 2010 09:05:25 +0200
 

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=52463&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Wed Feb 10 17:53:36 2010
@@ -1245,7 +1245,12 @@
         = "http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=wnpp;includesubj=ITP: $package";
     my $mech = WWW::Mechanize->new();
 
-    $mech->get($wnpp);
+    eval { $mech->get($wnpp) };
+    if ($@) {
+        warn "Error while looking for ITP of $package:\n";
+        warn $@;
+        return undef;
+    }
 
     my @links = $mech->links();