Subject: | Sending a simple email generate compilation errors but works |
Date: | Sat, 2 Jul 2016 20:26:35 -0400 |
To: | bug-Email-Send-SMTP-Gmail [...] rt.cpan.org |
From: | Alex Planete <alexandrea514 [...] gmail.com> |
Hi Peco,
After a year of not using my Perl program and changing my laptop and
Windows OS, I updated the module files as Email::Send::SMTP::Gmail.
Now, I'm having errors with this module: Email::Send::SMTP::Gmail
Below are the errors and the simple Perl code lines.
May you help or provide me instructions?
Thanks by advance.
Alex
Module: http://search.cpan.org/dist/Email-Send-SMTP-Gmail-1.01/
Perl : v5.16.2
OS : Windows 10
The last version of IO::Socket::SSL is installed :
http://search.cpan.org/~sullr/IO-Socket-SSL-2.029/
<http://search.cpan.org/dist/IO-Socket-SSL-2.027/>
========================== errors =======================
Show quoted text
>perl -w Email_SMTP_Gmail-2016.pl
Argument "" isn't numeric in bitwise and (&) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 2309, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 2724, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 1467, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 659, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 695, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 747, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 759, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 762, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 772, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 782, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 802, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 759, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 762, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 772, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 782, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 802, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 759, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 762, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 817, <GEN0> line 10.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 2756.
Use of uninitialized value $IO::Socket::SSL::DEBUG in numeric ge (>=) at
C:/Perl/site/lib/IO/Socket/SSL.pm line 2768.
Show quoted text>Exit code: 0
========================== end of errors ==========================
========================== code =======================
use strict;
use warnings;
use Email::Send::SMTP::Gmail;
my ($email,$error)=Email::Send::SMTP::Gmail->new( -smtp=>'smtp.gmail.com
',-login=>'alexandrea514@gmail.com',-pass=>'XXXXXXXX.');
print "session error: $error" unless ($email!=-1);
$email->send(-to=>'alexandrea514@gmail.com', -subject=>'Hello ! ',
-body=>'Just testing it');
$email->bye;
========================== end of code ==========================