* Fix synatx error in scripts/process.in

 * Handle undef being passed in Debbugs::Mime::encode_rfc1522

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index 59ffda489b47c282d5c23d850177e07f1501b434..183adc7df072bb732155b1c022639f676cc5c3af 100644 (file)
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -243,6 +243,8 @@ MIME::Words::encode_mimeword on distinct words as appropriate.
 sub encode_rfc1522 ($) {
      my ($rawstr) = @_;
 
+     # handle being passed undef properly
+     return undef if not defined $rawstr;
      # We process words in reverse so we can preserve spacing between
      # encoded words. This regex splits on word|nonword boundaries and
      # nonword|nonword boundaries.

diff --git a/scripts/process.in b/scripts/process.in
index c53e108ccd9c39ffc298166af9059e091216c817..7c3a6f6e7832ef7cc95111c4485b86789ac9f884 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -569,7 +569,7 @@ if ($ref<0) {
              for my $tag (split /[,\s]+/, $pheader{usertags}) {
                   if ($tag =~ /^[a-zA-Z0-9.+\@-]+/) {
                        my %bugs_with_tag; 
-                       @bugs_with_tag{@{$user_tags{$tag}||[]]}} = (1) x @{$user_tags{$tag}||[]};
+                       @bugs_with_tag{@{$user_tags{$tag}||[]}} = (1) x @{$user_tags{$tag}||[]};
                        $bugs_with_tag{$ref} = 1;
                        $user_tags{$tag} = [keys %bugs_with_tag];
                   }