| Subject: | Use of uninitialized value in numeric eq (==) warning |
Net::SMTPS spits "Use of uninitialized value..." warning because it uses == to compare a list with another (empty) list. The following patch should fix this issue.
--- a/lib/Net/SMTPS.pm
+++ b/lib/Net/SMTPS.pm
@@ -172,7 +172,7 @@ sub auth {
$self->debug_print(1, "AUTH-server offerred: ". $sv . "\n") if $self->debug;
foreach my $i (@cl_mech) {
- if (index($sv, $i) >= 0 && grep(/$i/i, @matched) == () ) {
+ if (index($sv, $i) >= 0 && !grep(/$i/i, @matched) ) {
push @matched, uc($i);
}
}