Hi,
Thanks for reporting this.
In fact get_https4() was a real mess, not only was the documentation example
wrong, but the code was not correct either.
Fixed in svn revision 248.
Cheers.
On Monday, August 27, 2012 10:56:30 AM Gavin Johnson via RT wrote:
Show quoted text> Mon Aug 27 10:56:29 2012: Request 79241 was acted upon.
> Transaction: Ticket created by snow6oy@gmail.com
> Queue: Net-SSLeay
> Subject: CPAN Documentation for Net::SSLeay
> Broken in: (no value)
> Severity: (no value)
> Owner: Nobody
> Requestors: snow6oy@gmail.com
> Status: new
> Ticket <URL:
https://rt.cpan.org/Ticket/Display.html?id=79241 >
>
>
> Hi,
>
> I think the example for get_https4 is incorrect. You have:
>
> ($page, $response, %headers_ref, $server_cert)
> = get_https4('www.bacus.pt', 443, '/');
> for $k (sort keys %{headers_ref}) {
> for $v (@{$headers_ref{$k}}) {
> print "$k = $v\n";
> }
> }
>
> but I think you want:
>
> ($page, $response, $headers_ref, $server_cert)
> = get_https4('www.bacus.pt', 443, '/');
> for $k (sort keys %{headers_ref}) {
> for $v (@{$headers_ref{$k}}) {
> print "$k = $v\n";
> }
> }
>
> Because %headers_ref is not a reference. You can ignore this if you're
> busy, the world won't change too much :-)
>
> cheers,
> Gavin
--
Mike McCauley mikem@open.com.au
Open System Consultants Pty. Ltd
9 Bulbul Place Currumbin Waters QLD 4223 Australia
http://www.open.com.au
Phone +61 7 5598-7474 Fax +61 7 5598-7070
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald,
Platypus, Freeside, TACACS+, PAM, external, Active Directory, EAP, TLS,
TTLS, PEAP, TNC, WiMAX, RSA, Vasco, Yubikey, MOTP, HOTP, TOTP,
DIAMETER etc. Full source on Unix, Windows, MacOSX, Solaris, VMS, NetWare etc.
