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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Mar 19 07:04:50 2010
New Revision: 54547

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54547
Log:
fill_maintainer: fix filling Uploaders in pkg-perl mode

blindly moving Maintainer to Uploaders has interesting implications
when refresh is run multiple times

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=54547&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:04:50 2010
@@ -133,16 +133,24 @@
 }
 
 sub fill_maintainer {
+    my $self = shift;
+
+    my $src = $self->control->source;
+    my $maint = $self->get_developer;
+
     if ( $self->cfg->pkg_perl ) {
-        my $old_maint = $self->control->source->Maintainer;
-        $self->control->source->Maintainer(
-            "Debian Perl Group <pkg-perl-maintainers\@lists.alioth.debian.org>"
-        );
-
-        $self->control->source->Uploaders->add($old_maint);
+        my $pkg_perl_maint
+            = "Debian Perl Group <pkg-perl-maintainers\@lists.alioth.debian.org>";
+        unless ( ( $src->Maintainer // '' ) eq $pkg_perl_maint ) {
+            my $old_maint = $src->Maintainer;
+            $src->Maintainer($pkg_perl_maint);
+            $src->Uploaders->add($old_maint) if $old_maint;
+        }
+
+        $src->Uploaders->add($maint);
     }
     else {
-        $self->control->source->Maintainer( "$name <$email>" );
+        $src->Maintainer($maint);
     }
 }