r55909 - /trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Apr 10 22:15:40 2010
New Revision: 55909

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55909
Log:
make extract_basic call extract_basic_copyright always with a filename

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

Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm?rev=55909&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Sat Apr 10 22:15:40 2010
@@ -268,8 +268,6 @@
     ) if $self->cfg->verbose;
     $self->debian_dir( $self->main_file('debian') );
 
-    $self->extract_basic_copyright();
-
     find(
         sub {
             $File::Find::name !~ $self->cfg->exclude
@@ -278,6 +276,15 @@
         },
         $self->main_dir
     ) unless $bin->short_description and $bin->long_description;
+
+    find(
+        sub {
+            $File::Find::name !~ $self->cfg->exclude
+                && /\.(pm|pod)$/
+                && $self->extract_basic_copyright($_);
+        },
+        $self->main_dir
+    ) unless $self->author and $self->copyright;
 }
 
 sub extract_name_ver {