Author: adsb
Date: 2008-11-19 11:38:16 +0000 (Wed, 19 Nov 2008)
New Revision: 1732
Modified:
trunk/scripts/bts.pl
Log:
Tweak the block/unblock uninitialized values fix slightly
Modified: trunk/scripts/bts.pl
===================================================================
--- trunk/scripts/bts.pl 2008-11-18 20:49:37 UTC (rev 1731)
+++ trunk/scripts/bts.pl 2008-11-19 11:38:16 UTC (rev 1732)
@@ -1296,9 +1296,9 @@
sub bts_block {
my $bug=checkbug(shift) or die "bts block: what bug is blocked?\n";
- my $word=shift || '';
- if ($word ne 'by' && $word ne 'with') {
- unshift @_, $word if length $word;
+ my $word=shift;
+ if (defined $word && $word ne 'by' && $word ne 'with') {
+ unshift @_, $word;
}
@_ or die "bts block: need to specify at least two bug numbers\n";
my @blockers;
@@ -1317,9 +1317,9 @@
sub bts_unblock {
my $bug=checkbug(shift) or die "bts unblock: what bug is blocked?\n";
- my $word=shift || '';
- if ($word ne 'by' && $word ne 'with') {
- unshift @_, $word if length $word;
+ my $word=shift;
+ if (defined $word && $word ne 'by' && $word ne 'with') {
+ unshift @_, $word;
}
@_ or die "bts unblock: need to specify at least two bug numbers\n";
my @blockers;
--
To unsubscribe, send mail to [EMAIL PROTECTED]
