Hello,
I already sent this to Sampo Kellomäki ([EMAIL PROTECTED]), the maintainer of
this module, but had no answer yet. Since the last release of this package
was more than one year ago, I'd like to know if anybody knows if the
development of this module is beeing continued or not. I'd also like to
know if their is a better place to post such a patch.
While using Net:SSLeay to give SSL ability to a perl program, I ran into
trouble due to Net::SSLeay::ssl_read_until returning shorter strings than
expected. It seems to me that it is simply due to a wront test (testing
"$got" instead of "defined $got") which make the function return when it
read a zero.
Here is the 2-line patch that corrects this behavior both for read_until
and read_all.
Regards,
-tom
--
== Thomas.Morin @webmotion.com
== SysAdmin/R&D www.webmotion.com
== Phone [613] 731 4046 +113
== Fax [613] 260 9545
--
--- SSLeay.pm Thu Nov 16 20:36:43 2000
+++ SSLeay.new.pm Thu Nov 16 21:04:23 2000
@@ -1052,7 +1052,7 @@
. length($reply) . " bytes, VM=$vm)\n" if $trace>3;
$reply .= $got;
#$reply = $got; # *** DEBUG
- } while ($got && $how_much > 0);
+ } while (defined $got && $how_much > 0);
return wantarray ? ($reply, $errs) : $reply;
}
@@ -1107,7 +1107,7 @@
warn " got `$got' (" . length($got) . ':'
. length($reply) . " bytes, VM=$vm)\n" if $trace>2;
$reply .= $got;
- } while ($got &&
+ } while (defined $got &&
( $length_delimit==0 || substr($reply, length($reply)-
$length_delimit) ne $delimit
) &&
