Package: libgimp-perl
Version: 2.0.dfsg-5
Severity: normal
The function gimp_call_procedure() in the Perl XS file 'Gimp/Lib.xs'
from the debian source package makes the PDB function "plug_in_mblur" fail,
as explained below:
----------------
void
gimp_call_procedure (proc_name, ...)
[snip]
if (gimp_procedural_db_proc_info ([snip] &nparams [snip]) == TRUE)
{
[snip]
for (i = 0, j = 1; i < nparams && j < items; i++)
{
[snip]
}
if (i < nparams || j < items)
{
[snip]
sprintf (croak_str, i
__("%s arguments for function '%s'"),
i < nparams ? __("not enough") : __("too many"),
proc_name);
[snip]
----------------
"gimp_procedural_db_proc_info()" is a Gimp PDB procedure
which queries the database for info about the procedure
passed as parameter.
Althoug "plug_in_mblur" tells in its doc that its two last
parameters are optional, the call
gimp_procedural_db_proc_info("plug_in_mblur")
returns 8 as the number of parametters.
When only 6 are supplied (by the Gimp Perl module, which adds
some to those specified by the user), this XS function believes
it's an error and fails.
