r7606 - in /trunk/dh-make-perl: debian/changelog dh-make-perl
hanska-guest at users.alioth.debian.org
hanska-guest at users.alioth.debian.org
Sun Sep 16 11:15:45 UTC 2007
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>
More information about the Pkg-perl-cvs-commits
mailing list