Fix STARTTLS vulnerability for async

2011-06-02 12:57:50 -04:00 · 2011-06-02 12:57:50 -04:00 · 5200244031
commit 5200244031
parent b7668c0468
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,