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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Feb  8 18:23:49 2010
New Revision: 52316

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52316
Log:
extract_name_ver(): locate Makefile.PL only when there is no META

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=52316&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Mon Feb  8 18:23:49 2010
@@ -707,8 +707,7 @@
 sub extract_name_ver {
     my ($self) = @_;
 
-    my ( $name, $ver, $makefile );
-    $makefile = $self->makefile_pl();
+    my ( $name, $ver );
 
     if ( defined $self->meta->{name} and defined $self->meta->{version} ) {
         $name = $self->meta->{name};
@@ -719,7 +718,7 @@
         }
     }
     else {
-        ( $name, $ver ) = $self->extract_name_ver_from_makefile($makefile);
+        ( $name, $ver ) = $self->extract_name_ver_from_makefile( $self->makefile_pl );
     }
 
     $name =~ s/::/-/g;