r7632 - /trunk/dh-make-perl/dh-make-perl

[hanska-guest at users.alioth.debian.org]

Author: hanska-guest
Date: Mon Sep 17 10:27:50 2007
New Revision: 7632

URL: http://svn.debian.org/wsvn/?sc=1&rev=7632
Log:
Another little fix

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/trunk/dh-make-perl/dh-make-perl?rev=7632&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Mon Sep 17 10:27:50 2007
@@ -748,7 +748,7 @@
     
     my ($package) = shift @_;
     
-    my $wnpp = "http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=wnpp;includesubj=ITP:%20$package";
+    my $wnpp = "http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=wnpp;includesubj=ITP: $package";
     my $mech = WWW::Mechanize->new();
     
     $mech->get($wnpp);
@@ -759,10 +759,7 @@
         my $href = $link->url();
         my $desc = $link->text();
         
-        if ($desc =~ /ITP: $package -- .*/) {
-            $href =~ s/^.*\/(\d{6})$/$1/;
-            return $href;
-        }
+        return $1 if $desc =~ /^#(\d{6}): ITP: $package /;
     }
     return 'nnnnnn';
 }