/[weechat]/weechat/src/plugins/scripts/perl/weechat-perl.c
ViewVC logotype

Diff of /weechat/src/plugins/scripts/perl/weechat-perl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by kolter, Fri Dec 2 22:26:40 2005 UTC revision 1.18 by kolter, Tue Dec 6 22:38:06 2005 UTC
# Line 138  weechat_perl_exec (t_weechat_plugin *plu Line 138  weechat_perl_exec (t_weechat_plugin *plu
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));
# Line 917  weechat_perl_load (t_weechat_plugin *plu Line 915  weechat_perl_load (t_weechat_plugin *plu
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;

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26