kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-08-14 01:49:05 +00:00
Code Issues Projects Releases Wiki Activity

FS-11259: [mod_perl] mod_perl tweaks #resolve

Browse Source
This commit is contained in:
Anthony Minessale
2018-07-19 02:59:40 +00:00
committed by Muteesa Fred
parent 9d0ad92d10
commit 3323809985
3 changed files with 78 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/mod/languages/mod_perl/mod_perl.c
View File

@@ -143,7 +143,11 @@ static int perl_parse_and_execute(PerlInterpreter * my_perl, char *input_code, c
return error;
}
#ifdef DEBUG_PERL
#define HACK_CLEAN_CODE "eval{foreach my $kl(keys %main::) {eval{print qq'DEBUG: ' . $kl . '/' . $$kl . '/' . $$$kl . qq'\n';undef($$kl);} if (defined($$kl) && ($kl =~ /^\\w+[\\w\\d_]+$/))}}"
#else
#define HACK_CLEAN_CODE "eval{foreach my $kl(keys %main::) {eval{undef($$kl);} if (defined($$kl) && ($kl =~ /^\\w+[\\w\\d_]+$/))}}"
#endif
static void destroy_perl(PerlInterpreter ** to_destroy)
{