1 files changed, 4 insertions, 0 deletions
diff --git a/src/plugins/perl/weechat-perl.c b/src/plugins/perl/weechat-perl.c
index ce3f5968e..e4fad167b 100644
--- a/src/plugins/perl/weechat-perl.c
+++ b/src/plugins/perl/weechat-perl.c
@@ -538,6 +538,10 @@ weechat_perl_unload (struct t_plugin_script *script)
         perl_destruct (interpreter);
         perl_free (interpreter);
     }
+    if (perl_current_script)
+    {
+        PERL_SET_CONTEXT (perl_current_script->interpreter);
+    }
 #else
     if (interpreter)
         free (interpreter);