r38314 - /trunk/dh-make-perl/lib/DhMakePerl.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Jun 20 07:10:50 2009
New Revision: 38314

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38314
Log:
find_cpan_module(): do not use uninitialized variable when --cpan is not given

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

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=38314&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sat Jun 20 07:10:50 2009
@@ -470,7 +470,7 @@
         $file =~ s#.*/##;          # remove directory
         $file =~ s/(.*)-.*/$1/;    # remove version and extension
         $file =~ s/-/::/g;         # convert dashes to colons
-        if ( $file eq $self->cfg->cpan ) {
+        if ( $self->cfg->cpan and $file eq $self->cfg->cpan ) {
             $mod = $_;
             last;
         }