r27798 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Dec  6 08:32:29 2008
New Revision: 27798

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27798
Log:
avoid using uninitialized $desc

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

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27798&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Sat Dec  6 08:32:29 2008
@@ -1474,7 +1474,7 @@
     foreach my $link (@links) {
         my $desc = $link->text();
 
-        return $1 if $desc =~ /^#(\d+): ITP: $package /;
+        return $1 if $desc and $desc =~ /^#(\d+): ITP: $package /;
     }
     return 0;
 }