SSL_verify_mode must be a number.
This commit is contained in:
parent
c6bc284b21
commit
6a2833b9a4
|
@ -385,7 +385,7 @@ sub start_ssl {
|
|||
SSL_passwd_cb => sub {return $t_ssl_pwd},
|
||||
SSL_use_cert =>'1',
|
||||
# No authentication
|
||||
SSL_verify_mode => '0x00',
|
||||
SSL_verify_mode => 0x00,
|
||||
);
|
||||
}
|
||||
else {
|
||||
|
@ -397,7 +397,7 @@ sub start_ssl {
|
|||
SSL_passwd_cb => sub {return $t_ssl_pwd},
|
||||
SSL_use_cert =>'1',
|
||||
# Verify peer
|
||||
SSL_verify_mode => '0x01',
|
||||
SSL_verify_mode => 0x01,
|
||||
);
|
||||
}
|
||||
|
||||
|
|
|
@ -385,7 +385,7 @@ sub start_ssl {
|
|||
SSL_passwd_cb => sub {return $t_ssl_pwd},
|
||||
SSL_use_cert =>'1',
|
||||
# No authentication
|
||||
SSL_verify_mode => '0x00',
|
||||
SSL_verify_mode => 0x00,
|
||||
);
|
||||
}
|
||||
else {
|
||||
|
@ -397,7 +397,7 @@ sub start_ssl {
|
|||
SSL_passwd_cb => sub {return $t_ssl_pwd},
|
||||
SSL_use_cert =>'1',
|
||||
# Verify peer
|
||||
SSL_verify_mode => '0x01',
|
||||
SSL_verify_mode => 0x01,
|
||||
);
|
||||
}
|
||||
|
||||
|
|
|
@ -385,7 +385,7 @@ sub start_ssl {
|
|||
SSL_passwd_cb => sub {return $t_ssl_pwd},
|
||||
SSL_use_cert =>'1',
|
||||
# No authentication
|
||||
SSL_verify_mode => '0x00',
|
||||
SSL_verify_mode => 0x00,
|
||||
);
|
||||
}
|
||||
else {
|
||||
|
@ -397,7 +397,7 @@ sub start_ssl {
|
|||
SSL_passwd_cb => sub {return $t_ssl_pwd},
|
||||
SSL_use_cert =>'1',
|
||||
# Verify peer
|
||||
SSL_verify_mode => '0x01',
|
||||
SSL_verify_mode => 0x01,
|
||||
);
|
||||
}
|
||||
|
||||
|
|
|
@ -407,7 +407,7 @@ sub start_ssl {
|
|||
if ($t_ssl_cert eq ''){
|
||||
IO::Socket::SSL->start_SSL (
|
||||
$t_socket,
|
||||
SSL_verify_mode => '0x00',
|
||||
SSL_verify_mode => 0x00,
|
||||
);
|
||||
}
|
||||
elsif ($t_ssl_ca eq '') {
|
||||
|
@ -418,7 +418,7 @@ sub start_ssl {
|
|||
SSL_passwd_cb => sub {return $t_ssl_pwd},
|
||||
SSL_use_cert =>'1',
|
||||
# No authentication
|
||||
SSL_verify_mode => '0x00',
|
||||
SSL_verify_mode => 0x00,
|
||||
);
|
||||
}
|
||||
else {
|
||||
|
@ -430,7 +430,7 @@ sub start_ssl {
|
|||
SSL_passwd_cb => sub {return $t_ssl_pwd},
|
||||
SSL_use_cert =>'1',
|
||||
# Verify peer
|
||||
SSL_verify_mode => '0x01',
|
||||
SSL_verify_mode => 0x01,
|
||||
);
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue