diff options
Diffstat (limited to 'src/plugins/scripts/perl/weechat-perl-api.c')
| -rw-r--r-- | src/plugins/scripts/perl/weechat-perl-api.c | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src/plugins/scripts/perl/weechat-perl-api.c b/src/plugins/scripts/perl/weechat-perl-api.c index a77fbe329..47a9c6a9a 100644 --- a/src/plugins/scripts/perl/weechat-perl-api.c +++ b/src/plugins/scripts/perl/weechat-perl-api.c @@ -3354,7 +3354,8 @@ static XS (XS_weechat_bar_search) static XS (XS_weechat_bar_new) { char *result, *name, *priority, *type, *conditions, *position, *filling; - char *size, *size_max, *color_fg, *color_bg, *separator, *bar_items; + char *size, *size_max, *color_fg, *color_delim, *color_bg, *separator; + char *bar_items; dXSARGS; /* make C compiler happy */ @@ -3366,7 +3367,7 @@ static XS (XS_weechat_bar_new) PERL_RETURN_EMPTY; } - if (items < 12) + if (items < 13) { WEECHAT_SCRIPT_MSG_WRONG_ARGUMENTS("bar_new"); PERL_RETURN_EMPTY; @@ -3381,9 +3382,10 @@ static XS (XS_weechat_bar_new) 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); + color_delim = SvPV (ST (9), PL_na); + color_bg = SvPV (ST (10), PL_na); + separator = SvPV (ST (11), PL_na); + bar_items = SvPV (ST (12), PL_na); result = script_ptr2str (weechat_bar_new (name, priority, type, @@ -3393,6 +3395,7 @@ static XS (XS_weechat_bar_new) size, size_max, color_fg, + color_delim, color_bg, separator, bar_items)); |