r53108 - /trunk/dh-make-perl/lib/DhMakePerl.pm

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Sat Feb 20 21:22:20 UTC 2010


Author: dmn
Date: Sat Feb 20 21:22:14 2010
New Revision: 53108

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53108
Log:
drop package lexical $closes

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

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=53108&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sat Feb 20 21:22:14 2010
@@ -77,7 +77,7 @@
 # * get more info from the package (maybe using CPAN methods)
 
 my (
-    $closes,              $date,
+    $date,
     $startdir,
 );
 our %overrides;
@@ -409,13 +409,8 @@
     $self->create_control( $self->debian_file('control') );
     $self->write_source_format(
         catfile( $self->debian_dir, 'source', 'format' ) );
-    if ( defined $self->cfg->closes ) {
-        $closes = $self->cfg->closes;
-    }
-    else {
-        $closes = $self->get_wnpp($pkgname);
-    }
-    $self->create_changelog( $self->debian_file('changelog'), $closes );
+    $self->create_changelog( $self->debian_file('changelog'),
+        $self->cfg->closes // $self->get_wnpp($pkgname) );
     $self->create_rules( $self->debian_file('rules') );
     $self->create_compat( $self->debian_file('compat') );
     $self->create_watch( $self->debian_file('watch') ) if $upsurl;




More information about the Pkg-perl-cvs-commits mailing list