Merge pull request #4 from baudehlo/master

Fix for starttls vulnerability
2011-06-24 14:05:42 -07:00 · 2011-06-24 14:05:42 -07:00 · cd5f088d69
commit cd5f088d69
parent b7668c0468 5200244031
1 changed files with 1 additions and 0 deletions
--- a/plugins/tls
+++ b/plugins/tls
@ -275,6 +275,7 @@ sub upgrade_socket {
    my UpgradeClientSSL $self = shift;

    unless ( $self->{_ssl_started} ) {
+        $self->{_stashed_qp}->clear_data();
        IO::Socket::SSL->start_SSL(
            $self->{_stashed_qp}->{sock}, {
                SSL_use_cert => 1,