| Subject: | no blength method on undef exception |
The attached patch fixes an issue we encountered on Ubuntu 11.10 with
Perl 5.12. We saw a Perl exception about no blength method on undef. We
think the cause was due to some interaction with the indirect object
syntax and autosplit, hence the patch. An alternate fix that we tested
was to add "sub blength;" at the top of the .al file.
Hopeful you will apply the patch as it obviously doesn't hurt anything.
Thanks,
Stephen
| Subject: | libnet-ssleay.patch |
diff -uNr Net-SSLeay-1.48.orig/lib/Net/SSLeay.pm Net-SSLeay-1.48/lib/Net/SSLeay.pm
--- Net-SSLeay-1.48.orig/lib/Net/SSLeay.pm 2012-04-25 03:00:45.000000000 -0400
+++ Net-SSLeay-1.48/lib/Net/SSLeay.pm 2012-08-28 10:09:20.000000000 -0400
@@ -768,7 +768,7 @@
#read up to the end of the delimiter
$got = Net::SSLeay::read($ssl,
$found + $len_delim
- - ((blength $match) - (blength $got)));
+ - ((blength($match)) - (blength($got))));
$done = 1;
} else {
$got = Net::SSLeay::read($ssl, $peek_length);