138 |
|
|
139 |
count = perl_call_argv (func, G_EVAL | G_SCALAR, argv); |
count = perl_call_argv (func, G_EVAL | G_SCALAR, argv); |
140 |
|
|
|
perl_current_script = NULL; |
|
|
|
|
141 |
SPAGAIN; |
SPAGAIN; |
142 |
|
|
143 |
sv = GvSV (gv_fetchpv ("@", TRUE, SVt_PV)); |
sv = GvSV (gv_fetchpv ("@", TRUE, SVt_PV)); |
915 |
perl_destruct (perl_current_interpreter); |
perl_destruct (perl_current_interpreter); |
916 |
perl_free (perl_current_interpreter); |
perl_free (perl_current_interpreter); |
917 |
#endif |
#endif |
918 |
if (perl_current_script != NULL) |
if ((perl_current_script != NULL) && (perl_current_script != &tempscript)) |
919 |
weechat_script_remove (plugin, &perl_scripts, perl_current_script); |
weechat_script_remove (plugin, &perl_scripts, perl_current_script); |
920 |
|
|
921 |
return 0; |
return 0; |