perl: fix context used after unload of a script

ChangeLog

@@ -24,6 +24,7 @@ http://weechat.org/files/releasenotes/ReleaseNotes-devel.html[release notes]
 * core: display a warning in case of inconsistency between the options
   weechat.look.save_{config|layout}_on_exit
 * api: add integer return code for functions hook_{signal|hsignal}_send
+* perl: fix context used after unload of a script
 * python: fix interpreter used after unload of a script
 
 == Version 0.4.3 (2014-02-09)

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);