/[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.1 by flashcode, Sat Oct 15 12:34:21 2005 UTC revision 1.2 by flashcode, Sun Oct 16 15:39:20 2005 UTC
# Line 531  weechat_perl_cmd (t_weechat_plugin *plug Line 531  weechat_perl_cmd (t_weechat_plugin *plug
531      (void) handler_args;      (void) handler_args;
532      (void) handler_pointer;      (void) handler_pointer;
533            
534      argv = plugin->explode_string (plugin, arguments, " ", 0, &argc);      if (arguments)
535            argv = plugin->explode_string (plugin, arguments, " ", 0, &argc);
536        else
537        {
538            argv = NULL;
539            argc = 0;
540        }
541            
542      switch (argc)      switch (argc)
543      {      {
# Line 639  weechat_perl_cmd (t_weechat_plugin *plug Line 645  weechat_perl_cmd (t_weechat_plugin *plug
645              plugin->printf_server (plugin,              plugin->printf_server (plugin,
646                                     "Perl error: wrong argument count for \"perl\" command");                                     "Perl error: wrong argument count for \"perl\" command");
647      }      }
648      plugin->free_exploded_string (plugin, argv);      
649        if (argv)
650            plugin->free_exploded_string (plugin, argv);
651        
652      return 1;      return 1;
653  }  }
654    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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