Skip Menu |
 

This queue is for tickets about the Net-SMTPS CPAN distribution.

Report information
The Basics
Id: 132320
Status: resolved
Priority: 0/
Queue: Net-SMTPS

People
Owner: TOMO [...] cpan.org
Requestors: ishigaki [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: 0.10



Subject: Use of uninitialized value in numeric eq (==) warning
Download (untitled) / with headers
text/plain 591b
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); } }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.