From bcb4de0614509714f9f4721770c28a769c0cfbe0 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 17 Sep 2008 09:04:04 -0700
Subject: [PATCH]  * Handle when tags aren't set in usertags

---
 scripts/service | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/scripts/service b/scripts/service
index 47585bd..ccdd0f7 100755
--- a/scripts/service
+++ b/scripts/service
@@ -387,12 +387,14 @@ END
 	    Debbugs::User::read_usertags(\%ut, $user);
             my @oldtags = (); my @newtags = (); my @badtags = ();
 	    my %chtags;
-	    for my $t (split /[,\s]+/, $tags) {
-	        if ($t =~ m/^[a-zA-Z0-9.+\@-]+$/) {
-		    $chtags{$t} = 1;
-		} else {
-		    push @badtags, $t;
-		}
+	    if (defined $tags and length $tags) {
+		 for my $t (split /[,\s]+/, $tags) {
+		      if ($t =~ m/^[a-zA-Z0-9.+\@-]+$/) {
+			   $chtags{$t} = 1;
+		      } else {
+			   push @badtags, $t;
+		      }
+		 }
 	    }
 	    if (@badtags) {
                 print {$transcript} "Ignoring illegal tag/s: ".join(', ', @badtags).".\nPlease use only alphanumerics, at, dot, plus and dash.\n";
-- 
2.39.2