/[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.12 by flashcode, Sun Nov 6 18:27:20 2005 UTC revision 1.13 by flashcode, Sun Nov 6 22:12:40 2005 UTC
# Line 268  static XS (XS_weechat_print) Line 268  static XS (XS_weechat_print)
268          XSRETURN_NO;          XSRETURN_NO;
269      }      }
270    
271      if ((items < 1) || (items > 3))      if (items < 1)
272      {      {
273          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
274                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "
# Line 315  static XS (XS_weechat_print_infobar) Line 315  static XS (XS_weechat_print_infobar)
315          XSRETURN_NO;          XSRETURN_NO;
316      }      }
317            
318      if (items != 2)      if (items < 2)
319      {      {
320          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
321                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "
# Line 351  static XS (XS_weechat_command) Line 351  static XS (XS_weechat_command)
351          XSRETURN_NO;          XSRETURN_NO;
352      }      }
353            
354      if ((items < 1) || (items > 3))      if (items < 1)
355      {      {
356          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
357                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "
# Line 397  static XS (XS_weechat_add_message_handle Line 397  static XS (XS_weechat_add_message_handle
397          XSRETURN_NO;          XSRETURN_NO;
398      }      }
399            
400      if (items != 2)      if (items < 2)
401      {      {
402          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
403                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "
# Line 485  static XS (XS_weechat_remove_handler) Line 485  static XS (XS_weechat_remove_handler)
485          XSRETURN_NO;          XSRETURN_NO;
486      }      }
487            
488      if (items != 2)      if (items < 2)
489      {      {
490          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
491                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "
# Line 523  static XS (XS_weechat_get_info) Line 523  static XS (XS_weechat_get_info)
523          XSRETURN_NO;          XSRETURN_NO;
524      }      }
525            
526      if ((items < 1) || (items > 2))      if (items < 1)
527      {      {
528          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
529                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "
# Line 629  static XS (XS_weechat_get_config) Line 629  static XS (XS_weechat_get_config)
629          XSRETURN_NO;          XSRETURN_NO;
630      }      }
631            
632      if (items != 1)      if (items < 1)
633      {      {
634          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
635                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "
# Line 676  static XS (XS_weechat_set_config) Line 676  static XS (XS_weechat_set_config)
676          XSRETURN_NO;          XSRETURN_NO;
677      }      }
678            
679      if (items != 2)      if (items < 2)
680      {      {
681          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
682                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "
# Line 717  static XS (XS_weechat_get_plugin_config) Line 717  static XS (XS_weechat_get_plugin_config)
717          XSRETURN_NO;          XSRETURN_NO;
718      }      }
719            
720      if (items != 1)      if (items < 1)
721      {      {
722          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
723                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "
# Line 766  static XS (XS_weechat_set_plugin_config) Line 766  static XS (XS_weechat_set_plugin_config)
766          XSRETURN_NO;          XSRETURN_NO;
767      }      }
768            
769      if (items != 2)      if (items < 2)
770      {      {
771          perl_plugin->printf_server (perl_plugin,          perl_plugin->printf_server (perl_plugin,
772                                      "Perl error: wrong parameters for "                                      "Perl error: wrong parameters for "

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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