https://issues.apache.org/SpamAssassin/show_bug.cgi?id=6820

--- Comment #1 from Mark Martinec <[email protected]> ---
> + /local/perl586/bin/perl ./build/mkupdates/listpromotable
> Use of uninitialized value in concatenation (.) or string at
> ./build/mkupdates/listpromotable line 213.

>    if ($tfs =~ /\bpublish\b/) {
>      if (defined $1) {
>        $notes = "tflags ".$1;
>      } else {
>        #BUG 6820: What's this supposed to do because I don't see a 
> possibility that $1 is set
>        print "DEBUG: \$1 isn't defined - $tfs\n";
>      }
>      goto publish;
>    }
>  }

Guessing from the analogy further down in:

  if ($tfs && $tfs =~ /\b(userconf|learn|net)\b/) {
    $notes = "tflags ".$1;
    goto publish;
  }

the /\bpublish\b/ was supposed to be a /\b(publish)\b/

-- 
You are receiving this mail because:
You are the assignee for the bug.

Reply via email to