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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Mar 19 07:05:09 2010
New Revision: 54548

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54548
Log:
create_copyright: fix the pkg-perl case

current developer is not in source->Maintainer, use get_developer

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=54548&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Fri Mar 19 07:05:09 2010
@@ -912,15 +912,14 @@
     $licenses{'Artistic'} = $licenses{'GPL-1+'} = 1;
     $year = (localtime)[5] + 1900;
     push( @res, "", "Files: debian/*" );
-    if($self->cfg->command eq 'refresh') {
-    my @from_changelog
-        = $self->copyright_from_changelog( $self->control->source->Maintainer,
-        $year );
-      $from_changelog[0] = "Copyright:" . $from_changelog[0];
-      push @res, @from_changelog;
+    if ( $self->cfg->command eq 'refresh' ) {
+        my @from_changelog
+            = $self->copyright_from_changelog( $self->get_developer, $year );
+        $from_changelog[0] = "Copyright:" . $from_changelog[0];
+        push @res, @from_changelog;
     }
     else {
-        push @res, "Copyright: $year, " . $self->control->source->Maintainer;
+        push @res, "Copyright: $year, " . $self->get_developer;
     }
     push @res, "License: " . join( ' or ', keys %licenses );