diff options
| -rw-r--r-- | Bugzilla/Config/MTA.pm | 6 | ||||
| -rw-r--r-- | Bugzilla/Install/Requirements.pm | 7 | ||||
| -rw-r--r-- | Bugzilla/Mailer.pm | 6 |
3 files changed, 19 insertions, 0 deletions
diff --git a/Bugzilla/Config/MTA.pm b/Bugzilla/Config/MTA.pm index c90e5dc76..aeded375f 100644 --- a/Bugzilla/Config/MTA.pm +++ b/Bugzilla/Config/MTA.pm @@ -34,6 +34,12 @@ package Bugzilla::Config::MTA; use strict; 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; our $sortkey = 1200; diff --git a/Bugzilla/Install/Requirements.pm b/Bugzilla/Install/Requirements.pm index 1e7fc97c6..39cacedb0 100644 --- a/Bugzilla/Install/Requirements.pm +++ b/Bugzilla/Install/Requirements.pm @@ -32,6 +32,13 @@ use List::Util qw(max); use Safe; 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 base qw(Exporter); our @EXPORT = qw( REQUIRED_MODULES diff --git a/Bugzilla/Mailer.pm b/Bugzilla/Mailer.pm index 7e42cb609..1c4fb6188 100644 --- a/Bugzilla/Mailer.pm +++ b/Bugzilla/Mailer.pm @@ -48,6 +48,12 @@ use Encode qw(encode); use Encode::MIME::Header; use Email::Address; 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; sub MessageToMTA { |