pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-07-06 09:43:13 +02:00
Code Activity

fix various minor bugs in plugins scripts

Browse Source
This commit is contained in:
Emmanuel Bouthenot
2005-12-06 22:38:06 +00:00
parent 0ef010d211
commit 7a80558d0f
6 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/scripts/perl/weechat-perl.c
+1 -3
View File
@@ -138,8 +138,6 @@ weechat_perl_exec (t_weechat_plugin *plugin,
count = perl_call_argv (func, G_EVAL | G_SCALAR, argv);
perl_current_script = NULL;
SPAGAIN;
sv = GvSV (gv_fetchpv ("@", TRUE, SVt_PV));
@@ -917,7 +915,7 @@ weechat_perl_load (t_weechat_plugin *plugin, char *filename)
perl_destruct (perl_current_interpreter);
perl_free (perl_current_interpreter);
#endif
if (perl_current_script != NULL)
if ((perl_current_script != NULL) && (perl_current_script != &tempscript))
weechat_script_remove (plugin, &perl_scripts, perl_current_script);
return 0;