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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Mar 19 07:04:31 2010
New Revision: 54546

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54546
Log:
Packaging::get_developer(): a new method for finding who is running dh-make-perl

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=54546&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:31 2010
@@ -103,7 +103,7 @@
     return $self->main_file('Makefile.PL');
 }
 
-sub fill_maintainer {
+sub get_developer {
     my $self = shift;
 
     my $email = $self->cfg->email;
@@ -129,6 +129,10 @@
 
     $email =~ s/^(.*)\s+<(.*)>$/$2/;
 
+    return "$name <$email>";
+}
+
+sub fill_maintainer {
     if ( $self->cfg->pkg_perl ) {
         my $old_maint = $self->control->source->Maintainer;
         $self->control->source->Maintainer(