package => [qw(set_package)],
block => [qw(set_blocks)],
merge => [qw(set_merged)],
- tag => [qw(set_tag)],
+ tag => [qw(set_tag valid_usertag)],
clone => [qw(clone_bug)],
archive => [qw(bug_archive bug_unarchive),
],
__end_control(%info);
}
-= head2 valid_usertag
+=head2 valid_usertag
valid_usertag
use Debbugs::Common qw(cleanup_eval_fail);
use Debbugs::Control qw(:all);
use Debbugs::Status qw(splitpackages);
+use Debbugs::MIME qw(encode_rfc1522);
use Params::Validate qw(:types validate_with);
use List::AllUtils qw(first);
}
elsif ($ctl eq 'submitter') {
my $newsubmitter = $matches[1] eq '!' ? $param{replyto} : $matches[1];
- if (not Mail::RFC822::Address::valid($newsubmitter)) {
+ if (not Mail::RFC822::Address::valid(encode_rfc1522($newsubmitter))) {
print {$transcript} "$newsubmitter is not a valid e-mail address; not changing submitter\n";
$errors++;
}