remove UTF8 warnings

[debbugs.git] / Debbugs / Recipients.pm

diff --git a/Debbugs/Recipients.pm b/Debbugs/Recipients.pm
index 2327450615d6fd0c3e1ccdec28c27932a2761fd3..fe99f2515f8f9eda415526a224c134cfe6660e1a 100644 (file)
--- a/Debbugs/Recipients.pm
+++ b/Debbugs/Recipients.pm
@@ -25,7 +25,7 @@ None known.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN{
      ($VERSION) = q$Revision: 1221 $ =~ /^Revision:\s+([^\s+])/;
@@ -111,8 +111,7 @@ sub add_recipients {
          }
          return;
      }
-     my ($p, $addmaint);
-     my $anymaintfound=0; my $anymaintnotfound=0;
+     my ($addmaint);
      my $ref = $param{data}{bug_num};
      for my $p (splitpackages($param{data}{package})) {
          $p = lc($p);
@@ -176,7 +175,7 @@ sub add_recipients {
      if (defined $config{bug_subscription_domain} and
         length $config{bug_subscription_domain}) {
          _add_address(recipients => $param{recipients},
-                      address    => 'bug='.$param{data}{bug_num}.'@'.
+                      address    => 'bugs='.$param{data}{bug_num}.'@'.
                                     $config{bug_subscription_domain},
                       reason     => "bug $param{data}{bug_num}",
                       bug_num    => $param{data}{bug_num},
@@ -245,7 +244,7 @@ Using the recipient hashref, determines the set of recipients.
 If you specify one of C<bcc>, C<cc>, or C<to>, you will receive only a
 LIST of recipients which the main should be Bcc'ed, Cc'ed, or To'ed
 respectively. By default, a LIST with keys bcc, cc, and to is returned
-with ARRAYREF values correponding to the users to whom a message
+with ARRAYREF values corresponding to the users to whom a message
 should be sent.
 
 =over