Package: devscripts Severity: wishlist Tags: patch Usertags: debcommit Hi,
Please add this patch to confirm the commit message. The patch is taken from ubuntu Regards Laurent Bigonville
--- scripts/debcommit.pl.orig 2007-08-21 23:03:38.000000000 +0200 +++ scripts/debcommit.pl 2007-08-21 23:06:53.000000000 +0200 @@ -6,7 +6,7 @@ =head1 SYNOPSIS -B<debcommit> [B<--release>] [B<--message=>I<text>] [B<--noact>] [B<--changelog=>I<path>] [B<--all> | I<files to commit>] +B<debcommit> [B<--release>] [B<--message=>I<text>] [B<--noact>] [B<--confirm>] [B<--changelog=>I<path>] [B<--all> | I<files to commit>] =head1 DESCRIPTION @@ -46,6 +46,11 @@ Do not actually do anything, but do print the commands that would be run. +=item B<-c> B<--confirm> + +Display the generated commit message and ask for confirmation before committing +it. + =item B<-a> B<--all> Commit all files. This is the default operation when using a VCS other @@ -82,6 +87,7 @@ -r --release Commit a release of the package and create a tag -m --message=text Specify a commit message -n --noact Dry run, no actual commits + -C --confirm Ask for confirmation of the message before commit -a --all Commit all files (default except for git) -h --help This message -v --version Version information @@ -102,6 +108,7 @@ my $release=0; my $message; my $noact=0; +my $confirm=0; my $all=0; my $changelog="debian/changelog"; Getopt::Long::Configure("bundling"); @@ -109,12 +116,13 @@ "r|release" => \$release, "m|message=s" => \$message, "n|noact" => \$noact, + "C|confirm" => \$confirm, "a|all" => \$all, "c|changelog=s" => \$changelog, "h|help" => sub { usage(); exit 0; }, "v|version" => sub { version(); exit 0; }, )) { - die "Usage: debcommit [--release] [--message=text] [--noact] [--changelog=path] [--all | files to commit]\n"; + die "Usage: debcommit [--release] [--message=text] [--noact] [--confirm] [--changelog=path] [--all | files to commit]\n"; } my @files_to_commit = @ARGV; @@ -142,7 +150,7 @@ } else { $message=getmessage() if ! defined $message; - commit($message); + commit($message) if not $confirm or confirm($message); } sub getprog { @@ -344,6 +352,17 @@ return $ret; } +sub confirm { + my $message=shift; + print $message, "\n--\n"; + while(1) { + print "OK to commit? [Y/n] "; + $_ = <STDIN>; + return 0 if /^n/i; + return 1 if /^(y|$)/i; + } +} + =head1 LICENSE This code is copyright by Joey Hess <[EMAIL PROTECTED]>, all rights reserved.
pgpsyfy8z2mjj.pgp
Description: PGP signature