diff options
Diffstat (limited to 'src/plugins/scripts/perl')
| -rw-r--r-- | src/plugins/scripts/perl/weechat-perl.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c index 50ee2845b..15a741545 100644 --- a/src/plugins/scripts/perl/weechat-perl.c +++ b/src/plugins/scripts/perl/weechat-perl.c @@ -148,7 +148,8 @@ weechat_perl_exec (struct t_plugin_script *script, (void) length; func = (char *) function; old_context = PERL_GET_CONTEXT; - PERL_SET_CONTEXT (script->interpreter); + if (script->interpreter) + PERL_SET_CONTEXT (script->interpreter); #else length = strlen (script->interpreter) + strlen (function) + 3; func = (char *) malloc (length); |