r7633 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Sep 17 10:29:08 2007
New Revision: 7633

URL: http://svn.debian.org/wsvn/?sc=1&rev=7633
Log:
Bug numbers do not have to use 6 digits; we no longer need bug URL

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=7633&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Mon Sep 17 10:29:08 2007
@@ -756,10 +756,9 @@
     my @links = $mech->links();
     
     foreach my $link (@links) {
-        my $href = $link->url();
         my $desc = $link->text();
-        
-        return $1 if $desc =~ /^#(\d{6}): ITP: $package /;
+
+        return $1 if $desc =~ /^#(\d+): ITP: $package /;
     }
     return 'nnnnnn';
 }