PC Professionell 2004 December/PCpro_2004_12.ISO/files/webserver/tsw/TSW_3.4.0.exe/Apache2/perl/do_httpx2.al

Text File | 2003-11-16 | 553 b | 19 lines

# NOTE: Derived from blib\lib\Net\SSLeay.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Net::SSLeay;

#line 2227 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\do_httpx2.al)"
sub do_httpx2 {
    my ($page, $response, $headers, $server_cert) = &do_httpx3;
    X509_free($server_cert) if defined $server_cert;
    return ($page, $response,
        map( { ($h,$v)=/^(\S+)\:\s*(.*)$/; (uc($h),$v); }
        split(/\s?\n/, $headers)
        )
        );
}

# end of Net::SSLeay::do_httpx2
1;