- post_https( $self->server, $self->port, $self->path, $headers,
- $raw_data, $opts->{"Content-Type"} );
- }
- elsif ( $ssl_module eq 'Crypt::SSLeay' ) {
+
+ my( $res_page, $res_code, @res_headers ) =
+ post_https( $self->server,
+ $self->port,
+ $self->path,
+ $headers,
+ $raw_data,
+ $opts->{"Content-Type"},
+ );
+
+ $res_code =~ /^(HTTP\S+ )?(.*)/ and $res_code = $2;
+
+ $self->response_page( $res_page );
+ $self->response_code( $res_code );
+ $self->response_headers( { @res_headers } );
+
+ ( $res_page, $res_code, @res_headers );
+
+ } elsif ( $ssl_module eq 'Crypt::SSLeay' ) {