monitoring/PerlModules/NP/Gritch/Gritch.pm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
New commits:
commit 674255758d325b1ce0cca8bff0b684371dc04bec
Author: Jan Pazdziora <jpazdziora(a)redhat.com>
Date: Fri Jul 27 16:17:27 2012 +0200
636211 - Mail::Send does not handle From as special case, need to set with set.
Addressing
Can't locate object method "from" via package "Mail::Send" at
/usr/share/perl5/Mail/Send.pm line 24.
diff --git a/monitoring/PerlModules/NP/Gritch/Gritch.pm
b/monitoring/PerlModules/NP/Gritch/Gritch.pm
index bddefbb..91cf731 100644
--- a/monitoring/PerlModules/NP/Gritch/Gritch.pm
+++ b/monitoring/PerlModules/NP/Gritch/Gritch.pm
@@ -406,7 +406,8 @@ sub sendmail {
} else {
# Use sendmail
if (Mail::Mailer::is_exe('sendmail')) {
- my $msg = Mail::Send->new(Subject => $subject, To => $recip, From
=> $self->recipient);
+ my $msg = Mail::Send->new(Subject => $subject, To => $recip);
+ $msg->set('From', $self->recipient);
my $fh = $msg->open('sendmail');
print $fh $message;
$fh->close;
Show replies by date