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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Feb 20 21:20:25 2010
New Revision: 53100

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53100
Log:
convert $debstdversion to a (constant) class method

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=53100&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sat Feb 20 21:20:25 2010
@@ -71,7 +71,7 @@
 # TODO:
 # * get more info from the package (maybe using CPAN methods)
 
-my ($debstdversion, $priority,
+my ($priority,
     $section,             $depends,       $bdepends,
     $bdependsi,           $maintainer,    $arch,
     $closes,              $date,
@@ -79,7 +79,7 @@
 );
 our %overrides;
 
-$debstdversion = '3.8.4';
+use constant debstdversion => '3.8.4';
 $priority      = 'optional';
 $section       = 'perl';
 $depends       = Debian::Dependencies->new('${perl:Depends}');
@@ -1530,7 +1530,7 @@
     else {
         $fh->print("Maintainer: $maintainer\n");
     }
-    $fh->print("Standards-Version: $debstdversion\n");
+    $fh->printf( "Standards-Version: %s\n", $self->debstdversion );
     $fh->print("Homepage: $upsurl\n") if $upsurl;
     do {
         $fh->print(