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

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

Author: hanska-guest
Date: Sun Sep 16 11:15:45 2007
New Revision: 7606

URL: http://svn.debian.org/wsvn/?sc=1&rev=7606
Log:
Added new --closes switch

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/trunk/dh-make-perl/debian/changelog?rev=7606&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Sun Sep 16 11:15:45 2007
@@ -4,7 +4,11 @@
   * Unbreak handling of --version which was broken by the
     getopts overhaul in 0.27
 
- -- Frank Lichtenheld <djpig at debian.org>  Sat, 15 Sep 2007 21:33:42 +0200
+  [ David Paleino ]
+  * Added new command line switch (--closes), to specify the ITP that
+    the new package is going to close
+
+ -- David Paleino <d.paleino at gmail.com>  Sun, 16 Sep 2007 13:13:55 +0200
 
 dh-make-perl (0.31) unstable; urgency=low
 

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/trunk/dh-make-perl/dh-make-perl?rev=7606&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Sun Sep 16 11:15:45 2007
@@ -85,8 +85,8 @@
 # Main dh-make-perl starts here, don't look any further!
 package main;
 my (@stdmodules, $perl_pkg, $debstdversion, $priority, $section, $depends, 
-    $bdepends, $bdependsi, $maintainer, $arch, $date, $debiandir, $startdir,
-    $dh_compat, $datadir, $homedir);
+    $bdepends, $bdependsi, $maintainer, $arch, $closes, $date, $debiandir,
+    $startdir, $dh_compat, $datadir, $homedir);
 our %overrides;
 
 $perl_pkg = get_perl_pkg_details();
@@ -99,6 +99,7 @@
 $bdepends = 'debhelper (>= 5.0.0)';
 $maintainer = get_maintainer();
 $arch = 'all';
+$closes = 'nnnnnn';
 $date = `date -R`;
 $startdir = getcwd();
 $dh_compat = 5;
@@ -125,7 +126,7 @@
 
 GetOptions(\%opts, 
 	   'arch=s', 'basepkgs=s', 'bdepends=s', 'bdependsi=s',
-	   'build!', 'core-ok', 'cpan=s', 'cpanplus=s',
+	   'build!', 'core-ok', 'cpan=s', 'cpanplus=s', 'closes=i', 
 	   'cpan-mirror=s', 'dbflags=s', 'depends=s', 'desc=s',
 	   'exclude|i:s{,}', 'help', 'install!', 'nometa', 'notest',
 	   'pkg-perl!', 'requiredeps', 'version=s') or die usage_instructions();
@@ -186,7 +187,10 @@
 # start writing out the data
 mkdir ($debiandir, 0755) || die "Cannot create $debiandir dir: $!\n";
 create_control("$debiandir/control");
-create_changelog("$debiandir/changelog");
+if (defined $opts{closes}) {
+    $closes = $opts{closes};
+}
+create_changelog("$debiandir/changelog", $closes);
 create_rules("$debiandir/rules");
 create_compat("$debiandir/compat");
 create_watch("$debiandir/watch", $opts{cpan}) if ($opts{cpan});
@@ -208,6 +212,7 @@
                [ --bdependsi BUILD-DEPENDS-INDEP ] [ --cpan-mirror MIRROR ]
                [ --exclude|-i [REGEX] ] [ --notest ] [ --nometa ] 
                [ --requiredeps ] [ --core-ok ] [ --basepkgs PKGSLIST ]
+               [ --closes ITPBUG ]
 USAGE
 }
 
@@ -830,8 +835,9 @@
 
 sub create_changelog {
 	my $fh = _file_w(shift);
+	my $bug = shift;
 	$fh->print("$srcname ($pkgversion) unstable; urgency=low\n");
-	$fh->print("\n  * Initial Release.\n\n");
+	$fh->print("\n  * Initial Release (Closes: #$bug).\n\n");
 	$fh->print(" -- $maintainer  $date\n");
 	#$fh->print("Local variables:\nmode: debian-changelog\nEnd:\n");
 	$fh->close
@@ -1095,6 +1101,10 @@
 =item B<--version> I<VERSION>
 
 Specifies the version of the resulting package.
+
+=item B<--closes> I<ITPBUG>
+
+Specifies the ITP bug number that this package closes.
 
 =item B<--depends> I<DEPENDS>