r7645 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Sep 17 11:38:01 2007
New Revision: 7645

URL: http://svn.debian.org/wsvn/?sc=1&rev=7645
Log:
Avoid use of unitialized variable when there's no ITP filed; add space before '(Closes...'

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

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/trunk/dh-make-perl/dh-make-perl?rev=7645&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Mon Sep 17 11:38:01 2007
@@ -858,7 +858,7 @@
 	my $fh = _file_w(shift);
 	my $bug = shift;
 	
-	my $closes = "(Closes: #$bug)" if $bug;
+	my $closes = $bug ? " (Closes: #$bug)" : '';
 
 	$fh->print("$srcname ($pkgversion) unstable; urgency=low\n");
 	$fh->print("\n  * Initial Release.$closes\n\n");