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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Feb 20 21:22:29 2010
New Revision: 53109

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

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=53109&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sat Feb 20 21:22:29 2010
@@ -77,7 +77,6 @@
 # * get more info from the package (maybe using CPAN methods)
 
 my (
-    $date,
     $startdir,
 );
 our %overrides;
@@ -109,7 +108,6 @@
     return $self;
 }
 
-$date      = email_date(time);
 $startdir  = getcwd();
 
 # If we're being required rather than called as a main command, then
@@ -188,8 +186,6 @@
         $self->cfg->parse_command_line_options;
         $self->cfg->parse_config_file;
     }
-
-    chomp($date);
 
     $self->bdepends(
         Debian::Dependencies->new( 'debhelper (>=' . $self->cfg->dh . ')' ) );
@@ -1581,7 +1577,7 @@
 
     $fh->print("$srcname ($pkgversion) $changelog_dist; urgency=low\n");
     $fh->print("\n  * Initial Release.$closes\n\n");
-    $fh->printf( " -- %s  %s\n", $self->maintainer, $date );
+    $fh->printf( " -- %s  %s\n", $self->maintainer, email_date(time) );
 
     #$fh->print("Local variables:\nmode: debian-changelog\nEnd:\n");
     $fh->close;