The following commit has been merged in the master branch:
commit df14879fbc1a1ab6b35e131ae8f32693658b2c93
Author: James Vega <[email protected]>
Date:   Sun May 8 17:19:52 2011 -0400

    Silence warnings with (un)subscribe command when no email is specified.
    
    Closes: #626086
    Signed-off-by: James Vega <[email protected]>

diff --git a/debian/changelog b/debian/changelog
index e063b8b..7ca9221 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,8 +7,12 @@ devscripts (2.10.73) UNRELEASED; urgency=low
       (Closes: #574155)
   * uupdate: Handle hidden files when the upstream archive doesn't contain its
     files under one top-level directory.  (Closes: #601945)
-  * bts: Indicate version argument is optional for done command.  (Closes:
-    #623567)
+  * bts:
+    + Indicate version argument is optional for done command.  (Closes:
+      #623567)
+    + Silence warnings with (un)subscribe command when no email is specified.
+      (Closes: #626086)
+    + Indicate email argument is optional for (un)subscribe commands.
   * debsnap:
     + Add support for downloading binary packages.  Thanks to Timo Juhani
       Lindfors for the patch.  (Closes: #587523)
diff --git a/scripts/bts.pl b/scripts/bts.pl
index 3bb1f31..2d76d3e 100755
--- a/scripts/bts.pl
+++ b/scripts/bts.pl
@@ -1997,7 +1997,7 @@ sub bts_noowner {
     mailbts("bug $bug has no owner", "noowner $bug");
 }
 
-=item B<subscribe> I<bug> I<email>
+=item B<subscribe> I<bug> [I<email>]
 
 Subscribe the given I<email> address to the specified B<bug> report.  If no 
email
 address is specified, the environment variable B<DEBEMAIL> or B<EMAIL> (in that
@@ -2012,7 +2012,8 @@ relevant emails and notifications.  Use the unsubscribe 
command to unsubscribe.
 
 sub bts_subscribe {
     my $bug=checkbug(shift) or die "bts subscribe: subscribe to what bug?\n";
-    my $email=lc(shift);
+    my $email=shift;
+    $email=lc($email) if defined $email;
     if (defined $email and $email eq '!') { $email = undef; }
     else {
        $email ||= $ENV{'DEBEMAIL'};
@@ -2024,7 +2025,7 @@ sub bts_subscribe {
           $bug . '-subscribe@' . $btsserver, $email);
 }
 
-=item B<unsubscribe> I<bug> I<email>
+=item B<unsubscribe> I<bug> [I<email>]
 
 Unsubscribe the given email address from the specified bug report.  As with
 subscribe above, if no email address is specified, the environment variables
@@ -2038,7 +2039,8 @@ to which you have to reply. Use the B<subscribe> command 
to, well, subscribe.
 
 sub bts_unsubscribe {
     my $bug=checkbug(shift) or die "bts unsubscribe: unsubscribe from what 
bug?\n";
-    my $email=lc(shift);
+    my $email=shift;
+    $email = lc($email) if defined $email;
     if (defined $email and $email eq '!') { $email = undef; }
     else {
        $email ||= $ENV{'DEBEMAIL'};

-- 
Git repository for devscripts


-- 
To unsubscribe, send mail to [email protected].

Reply via email to