| Subject: | Incorrect sprintf format |
| Date: | Tue, 31 Jul 2012 18:39:51 -0400 |
| To: | bug-Net-SMTP-TLS [...] rt.cpan.org |
| From: | John Wingenbach <jwing [...] us.ibm.com> |
Net::SMTP::TLS Version 0.12
sprintf format results in the following error:
Invalid conversion in sprintf: "%S"
at /usr/local/share/perl5/Net/SMTP/TLS.pm line 254, <GEN0> line 10.
Missing argument in sprintf
at /usr/share/perl5/vendor_perl/IO/Socket/SSL.pm line 711, <GEN0> line 10.
Invalid conversion in sprintf: "%S"
at /usr/share/perl5/vendor_perl/IO/Socket/SSL.pm line 711, <GEN0> line 10.
The sprintf format needs to be a lowercase s. Not uppercase. The
following patch resolves the issue.
--- TLS.pm 2012-07-31 18:34:30.999412218 -0400
+++ TLS.pm.new 2012-07-31 18:35:04.742337009 -0400
@@ -251,7 +251,7 @@
my $me = shift;
my $user= $me->{User};
my $pass= $me->{Password};
- $me->_command(sprintf("AUTH PLAIN %S",
+ $me->_command(sprintf("AUTH PLAIN %s",
encode_base64("$user\0$user\0$pass","")));
my ($num,$txt) = $me->_response();
if(not $num == 235){
--
John Wingenbach