Filename and linenumber context information from Carp::carp is
unlikely to be useful here on (likely) worthless data from bad
MUAs. carp adds needless noise for users tracking down actual
code bugs with PERL5OPT=-MCarp=verbose, which changes Carp::carp
into Carp::cluck.
sub add_bool_term ($$) {
my ($doc, $pfx_term) = @_;
if (length($pfx_term) > MAX_TERM_SIZE) {
- carp "W: skipping term: `$pfx_term'.length > ",
+ warn "W: skipping term: `$pfx_term'.length > ",
MAX_TERM_SIZE, "\n";
} else {
$doc->add_boolean_term($pfx_term);