From 9ee81348aaa57b34f0c4f0b75bc387f24beb451e Mon Sep 17 00:00:00 2001 From: Frédéric Buclin Date: Sun, 6 Jan 2013 00:24:23 +0100 Subject: Bug 826678: Disable warnings about the deprecated Return::Value module when loading Email::Send r=wicked a=LpSolit --- Bugzilla/Config/MTA.pm | 6 ++++++ Bugzilla/Install/Requirements.pm | 7 +++++++ Bugzilla/Mailer.pm | 6 ++++++ 3 files changed, 19 insertions(+) diff --git a/Bugzilla/Config/MTA.pm b/Bugzilla/Config/MTA.pm index a6ca36613..2f4af72f4 100644 --- a/Bugzilla/Config/MTA.pm +++ b/Bugzilla/Config/MTA.pm @@ -11,6 +11,12 @@ use 5.10.1; 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 9bc5be14a..eb36d15a6 100644 --- a/Bugzilla/Install/Requirements.pm +++ b/Bugzilla/Install/Requirements.pm @@ -23,6 +23,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 parent qw(Exporter); our @EXPORT = qw( REQUIRED_MODULES diff --git a/Bugzilla/Mailer.pm b/Bugzilla/Mailer.pm index d9aa9edc9..6602c6cef 100644 --- a/Bugzilla/Mailer.pm +++ b/Bugzilla/Mailer.pm @@ -24,6 +24,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 { -- cgit v1.2.3-24-g4f1b