diff options
Diffstat (limited to 'src/plugins/scripts/perl/weechat-perl-api.c')
| -rw-r--r-- | src/plugins/scripts/perl/weechat-perl-api.c | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/src/plugins/scripts/perl/weechat-perl-api.c b/src/plugins/scripts/perl/weechat-perl-api.c index 0ed6308ee..51698344a 100644 --- a/src/plugins/scripts/perl/weechat-perl-api.c +++ b/src/plugins/scripts/perl/weechat-perl-api.c @@ -3314,8 +3314,8 @@ static XS (XS_weechat_bar_search) static XS (XS_weechat_bar_new) { - char *result, *name, *type, *conditions, *position, *filling, *size; - char *size_max, *color_fg, *color_bg, *separator, *bar_items; + char *result, *name, *priority, *type, *conditions, *position, *filling; + char *size, *size_max, *color_fg, *color_bg, *separator, *bar_items; dXSARGS; /* make C compiler happy */ @@ -3327,24 +3327,26 @@ static XS (XS_weechat_bar_new) PERL_RETURN_EMPTY; } - if (items < 11) + if (items < 12) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_new"); PERL_RETURN_EMPTY; } name = SvPV (ST (0), PL_na); - type = SvPV (ST (1), PL_na); - conditions = SvPV (ST (2), PL_na); - position = SvPV (ST (3), PL_na); - filling = SvPV (ST (4), PL_na); - size = SvPV (ST (5), PL_na); - size_max = SvPV (ST (6), PL_na); - color_fg = SvPV (ST (7), PL_na); - color_bg = SvPV (ST (8), PL_na); - separator = SvPV (ST (9), PL_na); - bar_items = SvPV (ST (10), PL_na); + priority = SvPV (ST (1), PL_na); + type = SvPV (ST (2), PL_na); + conditions = SvPV (ST (3), PL_na); + position = SvPV (ST (4), PL_na); + filling = SvPV (ST (5), PL_na); + size = SvPV (ST (6), PL_na); + size_max = SvPV (ST (7), PL_na); + color_fg = SvPV (ST (8), PL_na); + color_bg = SvPV (ST (9), PL_na); + separator = SvPV (ST (10), PL_na); + bar_items = SvPV (ST (11), PL_na); result = script_ptr2str (weechat_bar_new (name, + priority, type, conditions, position, |