r27230 - in /trunk/dh-make-perl: debian/changelog dh-make-perl

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sun Nov 23 15:52:02 2008
New Revision: 27230

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27230
Log:
Handle --desc option before --refresh to avoid uninitialized $desc
variable.

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=27230&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Sun Nov 23 15:52:02 2008
@@ -1,3 +1,10 @@
+dh-make-perl (0.51) UNRELEASED; urgency=low
+
+  * Handle --desc option before --refresh to avoid uninitialized $desc
+    variable.
+
+ -- gregor herrmann <gregoa at debian.org>  Sun, 23 Nov 2008 16:51:29 +0100
+
 dh-make-perl (0.50) unstable; urgency=low
 
   [ gregor herrmann ]

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27230&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Sun Nov 23 15:52:02 2008
@@ -157,6 +157,12 @@
   $email = '';
 }
 $maintainer = get_maintainer($email);
+
+if (defined $opts{desc}) {
+  $desc = $opts{desc};
+} else {
+  $desc = '';
+}
 
 if ( $opts{refresh} )
 {
@@ -197,12 +203,6 @@
 $meta = process_meta("$maindir/META.yml") if (-f "$maindir/META.yml");
 findbin_fix();
 
-
-if (defined $opts{desc}) {
-  $desc = $opts{desc};
-} else {
-  $desc = '';
-}
 ($pkgname, $version) = extract_basic();
 if (defined $opts{p}) {
   $pkgname = $opts{p};