Author: adsb
Date: 2008-11-04 21:02:52 +0000 (Tue, 04 Nov 2008)
New Revision: 1702
Modified:
trunk/debian/changelog
trunk/scripts/bts.pl
Log:
* bts:
+ Accept a command consisting purely of a comment. (Closes: #501252)
Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog 2008-11-04 20:55:05 UTC (rev 1701)
+++ trunk/debian/changelog 2008-11-04 21:02:52 UTC (rev 1702)
@@ -1,8 +1,10 @@
devscripts (2.10.40) UNRELEASED; urgency=low
[ Adam D. Barratt ]
- * bts: Update the manpage to mention local caching in the description
- section and correct a typo. (Closes: #499397)
+ * bts:
+ + Update the manpage to mention local caching in the description
+ section and correct a typo. (Closes: #499397)
+ + Accept a command consisting purely of a comment. (Closes: #501252)
* cowpoke:
+ Update to new upstream version
- Multiple architecture and distribution support.
Modified: trunk/scripts/bts.pl
===================================================================
--- trunk/scripts/bts.pl 2008-11-04 20:55:05 UTC (rev 1701)
+++ trunk/scripts/bts.pl 2008-11-04 21:02:52 UTC (rev 1702)
@@ -675,6 +675,8 @@
no strict 'refs';
if (exists $::{"bts_$command[$index]"}) {
"bts_$command[$index]"->(@{$args[$index]});
+ } elsif ($command[$index] =~ /^#/) {
+ mailbts('', $command[$index]);
} else {
my @matches=grep /^bts_\Q$command[$index]\E/, keys %::;
if (@matches != 1) {
@@ -2106,7 +2108,7 @@
$subject = $_[0];
}
elsif (length($subject) + length($_[0]) < 100) {
- $subject .= ", $_[0]";
+ $subject .= ", $_[0]" if length($_[0]);
}
elsif ($subject !~ / ...$/) {
$subject .= " ...";
--
To unsubscribe, send mail to [EMAIL PROTECTED]
