get rid of uninit warnings

lib/RT/Interface/Email/Filter/TakeAction.pm

@@ -201,6 +201,8 @@ sub GetCurrentUser {
     foreach my $line (@content) {
         next if $line =~ /^\s*$/ && ! $found_pseudoheaders;
         last if $line !~ /^(?:(\S+(?:{.*})?)\s*?:\s*?(.*)\s*?|)$/;
+        next unless defined $1;
+
         $found_pseudoheaders = 1;
         push( @items, $1 => $2 );
         $RT::Logger->debug("Found pseudoheader: $1 => $2");