r58882 - in /trunk/dh-make-perl: debian/changelog lib/DhMakePerl/Command/Packaging.pm

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Sat Jun  5 06:44:49 2010
New Revision: 58882

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58882
Log:
DhMakePerl::Command::Packaging (set_package_name): Use package name
specified by --packagename option. (Closes: #584619)

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

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=58882&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Sat Jun  5 06:44:49 2010
@@ -9,6 +9,8 @@
   * Debian::Dependency: Recognize deprecated '<' and '>' relations.
   * Debian::Dependency: Allow architecture restrictions in dependencies.
     For now this information is just ignored.
+  * DhMakePerl::Command::Packaging (set_package_name): Use package name
+    specified by --packagename option. (Closes: #584619)
 
   [ Salvatore Bonaccorso ]
   * Add support of Breaks field for binary package stanzas in debian/control

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=58882&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Sat Jun  5 06:44:49 2010
@@ -195,9 +195,15 @@
 sub set_package_name {
     my $self = shift;
 
-    my $pkgname = lc $self->perlname;
-    $pkgname = 'lib' . $pkgname unless $pkgname =~ /^lib/;
-    $pkgname .= '-perl';
+    my $pkgname;
+    if (defined $self->cfg->packagename) {
+      $pkgname = $self->cfg->packagename;
+    }
+    else {
+      $pkgname = lc $self->perlname;
+      $pkgname = 'lib' . $pkgname unless $pkgname =~ /^lib/;
+      $pkgname .= '-perl';
+    }
 
     # ensure policy compliant names and versions (from Joeyh)...
     $pkgname =~ s/[^-.+a-zA-Z0-9]+/-/g;