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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Dec 29 10:22:29 2008
New Revision: 28929

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28929
Log:
get_itp(): adapt to new BTS web interface. Thanks to SteveNZ for the patch.

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=28929&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Mon Dec 29 10:22:29 2008
@@ -24,6 +24,8 @@
     - refactor parsing, caching and searching in apt Contents files in a class
   * add test suite
   * rules: run the test suite during build
+  * get_itp(): adapt to new BTS web interface. Thanks to SteveNZ for the
+    patch.
 
   [ Paul Fenwick ]
   * Setting the base for unit-testing:

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=28929&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Mon Dec 29 10:22:29 2008
@@ -1082,7 +1082,10 @@
     foreach my $link (@links) {
         my $desc = $link->text();
 
-        return $1 if $desc and $desc =~ /^#(\d+): ITP: $package /;
+        if ($desc && $desc =~ /^ITP: $package /) {
+            return $1 if $link->url =~ m/bug=(\d+)$/;
+        }
+
     }
     return 0;
 }