Commit 9ee81348 authored by Frédéric Buclin's avatar Frédéric Buclin

Bug 826678: Disable warnings about the deprecated Return::Value module when loading Email::Send

r=wicked a=LpSolit
parent 48e96823
...@@ -11,6 +11,12 @@ use 5.10.1; ...@@ -11,6 +11,12 @@ use 5.10.1;
use strict; use strict;
use Bugzilla::Config::Common; use Bugzilla::Config::Common;
# Return::Value 1.666002 pollutes the error log with warnings about this
# deprecated module. We have to set NO_CLUCK = 1 before loading Email::Send
# to disable these warnings.
BEGIN {
$Return::Value::NO_CLUCK = 1;
}
use Email::Send; use Email::Send;
our $sortkey = 1200; our $sortkey = 1200;
......
...@@ -23,6 +23,13 @@ use List::Util qw(max); ...@@ -23,6 +23,13 @@ use List::Util qw(max);
use Safe; use Safe;
use Term::ANSIColor; use Term::ANSIColor;
# Return::Value 1.666002 pollutes the error log with warnings about this
# deprecated module. We have to set NO_CLUCK = 1 before loading Email::Send
# in have_vers() to disable these warnings.
BEGIN {
$Return::Value::NO_CLUCK = 1;
}
use parent qw(Exporter); use parent qw(Exporter);
our @EXPORT = qw( our @EXPORT = qw(
REQUIRED_MODULES REQUIRED_MODULES
......
...@@ -24,6 +24,12 @@ use Encode qw(encode); ...@@ -24,6 +24,12 @@ use Encode qw(encode);
use Encode::MIME::Header; use Encode::MIME::Header;
use Email::Address; use Email::Address;
use Email::MIME; use Email::MIME;
# Return::Value 1.666002 pollutes the error log with warnings about this
# deprecated module. We have to set NO_CLUCK = 1 before loading Email::Send
# to disable these warnings.
BEGIN {
$Return::Value::NO_CLUCK = 1;
}
use Email::Send; use Email::Send;
sub MessageToMTA { sub MessageToMTA {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment