From add2fbcc81e8c49aa2f13706f7f9d9782038fd9b Mon Sep 17 00:00:00 2001 From: Ramon Novoa Date: Mon, 23 Mar 2020 19:02:21 +0100 Subject: [PATCH] Show a warning message if Net::SSLeay may leak memory. --- pandora_server/bin/tentacle_server | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/pandora_server/bin/tentacle_server b/pandora_server/bin/tentacle_server index 8b27ed35b3..fb9a24f096 100755 --- a/pandora_server/bin/tentacle_server +++ b/pandora_server/bin/tentacle_server @@ -1740,6 +1740,19 @@ sub callback_stop { 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 ################################################################################ @@ -1759,6 +1772,8 @@ if ($#ARGV != -1) { exit 1; } +check_ssleay_version() if $t_ssl == 1; + # Show IPv6 status if ($SOCKET_MODULE eq 'IO::Socket::INET') { print_log ("IO::Socket::INET6 is not found. IPv6 is disabled.");