my @f = split /\s+/, $line;
my @out;
for (@f) {
+ return (1, $self->msg('e19')) if /[^\s\w_\-\/]/;
my $call = uc $_;
push @DXProt::nodx_node, $call;
- push @out, "$call is now a badnode";
+ push @out, $self->msg('badnode1', $call);
}
return (1, @out);