I'm not the submitted but just an affected user. Affects me quite
seriously now, I'm getting a compilation error just as perl uses the
module. Perl update must have turned a deprecation warning to an error?
The following patch is against version 0.8.16-2.
This may be fixed upstream as well, I don't know...
--
...Adam Di Carlo...<a...@onshored.com>.......<URL:http://www.onshored.com/>
--- /usr/share/perl5/Mail/Sender.pm.orig 2016-01-26 20:28:09.192750941 -0500
+++ /usr/share/perl5/Mail/Sender.pm 2016-01-26 20:37:19.136913560 -0500
@@ -315,7 +315,7 @@
sub __Debug {
my ($socket, $file) = @_;
if (defined $file) {
- unless (defined @Mail::Sender::DBIO::ISA) {
+ unless (@Mail::Sender::DBIO::ISA) {
eval "use Symbol;";
eval $debug_code;
die $@ if $@;
@@ -2545,7 +2545,9 @@
# if (!defined($self->{'smtpaddr'})) { return $self->Error(HOSTNOTFOUND($self->{'smtp'})); }
if (exists $self->{'on_errors'} and (!defined($self->{'on_errors'}) or $self->{'on_errors'} eq 'undef')) {
- return $self->Connect() and $self->Close() and 1;
+ if ($self->Connect() and $self->Close()) {
+ return 1;
+ }
} elsif (exists $self->{'on_errors'} and $self->{'on_errors'} eq 'die') {
$self->Connect();
$self->Close();
@@ -2690,7 +2692,7 @@
package Mail::Sender;
sub GetHandle {
my $self = shift();
- unless (defined @Mail::Sender::IO::ISA) {
+ unless (@Mail::Sender::IO::ISA) {
eval "use Symbol;";
eval $pseudo_handle_code;
}
