tyler.durden
/
pandorafms
mirror of https://github.com/pandorafms/pandorafms.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Show a warning message if Net::SSLeay may leak memory.

This commit is contained in:
Ramon Novoa 2020-03-23 19:02:21 +01:00
parent 6cea6f62c2
commit add2fbcc81
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
pandora_server/bin/tentacle_server
View File

@ -1740,6 +1740,19 @@ sub callback_stop {
Win32::Daemon::StopService(); Win32::Daemon::StopService();
} }
################################################################################
## SUB check_ssleay_version
## Print a message if the installed version of Net::SSLeay may leak memory.
################################################################################
sub check_ssleay_version {
eval {
require Net::SSLeay;
return unless defined($Net::SSLeay::VERSION) && $Net::SSLeay::VERSION =~ m/^(\d+)\.(\d+)/ && $1 <= 1 && $2 < 88;
print_log ("Net::SSLeay version $Net::SSLeay::VERSION detected. Versions prior to 1.88 may leak memory. To upgrade it see: https://metacpan.org/pod/Net::SSLeay");
};
}
################################################################################ ################################################################################
# Main # Main
################################################################################ ################################################################################
@ -1759,6 +1772,8 @@ if ($#ARGV != -1) {
exit 1; exit 1;
} }
check_ssleay_version() if $t_ssl == 1;
# Show IPv6 status # Show IPv6 status
if ($SOCKET_MODULE eq 'IO::Socket::INET') { if ($SOCKET_MODULE eq 'IO::Socket::INET') {
print_log ("IO::Socket::INET6 is not found. IPv6 is disabled."); print_log ("IO::Socket::INET6 is not found. IPv6 is disabled.");