summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog1
-rw-r--r--src/plugins/perl/weechat-perl.c4
2 files changed, 5 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 76e6342a5..c1e52fa31 100644
--- a/ChangeLog
+++ b/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)
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);