GitLab repository storage has been migrated to hashed layout. Please contact Infrastructure team if you notice any issues with repositories or hooks.

Commit 6df979eb authored by Marc Lehmann's avatar Marc Lehmann

See plug-ins/perl/Changes

parent 71776d3e
Revision history for Gimp-Perl extension.
1.045 Sun Nov 1 23:40:20 CET 1998
- more configuration cleanups
- fixed Gimp::Fu to respect RUN_WITH_LAST_VALS again
- added more oo-prefixes to channels and layers (see Gimp::OO)
......@@ -7,6 +8,8 @@ Revision history for Gimp-Perl extension.
- 'require 5.004_04' and added use base declarations
- improved future compatibility
- improved constant inlining
- fixed a serious bug in argument handling when not all arguments
were given
1.0441 Sat Oct 24 22:52:05 CEST 1998
- t/run.t does much less when no tests are requested
......
......@@ -12,7 +12,7 @@ use base qw(DynaLoader);
require DynaLoader;
$VERSION = 1.0441;
$VERSION = 1.045;
@_param = qw(
PARAM_BOUNDARY PARAM_CHANNEL PARAM_COLOR PARAM_DISPLAY PARAM_DRAWABLE
......
......@@ -1049,14 +1049,14 @@ gimp_call_procedure (proc_name, ...)
{
j = 0;
if (no_runmode || !SvROK (ST(1)))
for (i = 0; i < nparams && j < items; i++)
if (no_runmode || !SvROK (ST(0)))
for (i = 0; i < nparams && j < items-1; i++)
{
args[i].type = params[i].type;
if (!i && no_runmode == 2)
if (i==0 && no_runmode == 2)
args->data.d_int32 = RUN_NONINTERACTIVE;
else if ((!SvROK (ST(j+1)) || i >= nparams-1 || !is_array (params[i+1].type))
&& convert_sv2gimp (croak_str, &args[i], ST(j+1)))
else if ((!SvROK(ST(j+1)) || i >= nparams-1 || !is_array (params[i+1].type))
&& convert_sv2gimp (croak_str, &args[i], ST(j+1)))
j++;
if (croak_str [0])
......@@ -1076,8 +1076,8 @@ gimp_call_procedure (proc_name, ...)
goto error;
}
}
if (no_runmode || j >= items-1)
if (no_runmode || i == nparams)
break;
/* very costly, do better! */
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment