r7634 - /trunk/dh-make-perl/dh-make-perl

[hanska-guest at users.alioth.debian.org]

Author: hanska-guest
Date: Mon Sep 17 10:46:28 2007
New Revision: 7634

URL: http://svn.debian.org/wsvn/?sc=1&rev=7634
Log:
No (Closes: #nnnnn) when there's no ITP bug filed

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=7634&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Mon Sep 17 10:46:28 2007
@@ -760,7 +760,7 @@
 
         return $1 if $desc =~ /^#(\d+): ITP: $package /;
     }
-    return 'nnnnnn';
+    return 0;
 }
 
 sub substitute_perl_dependency {
@@ -857,8 +857,11 @@
 sub create_changelog {
 	my $fh = _file_w(shift);
 	my $bug = shift;
+	
+	my $closes = "(Closes: #$bug)" if $bug;
+
 	$fh->print("$srcname ($pkgversion) unstable; urgency=low\n");
-	$fh->print("\n  * Initial Release (Closes: #$bug).\n\n");
+	$fh->print("\n  * Initial Release.$closes\n\n");
 	$fh->print(" -- $maintainer  $date\n");
 	#$fh->print("Local variables:\nmode: debian-changelog\nEnd:\n");
 	$fh->close