see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 1999-06-14 20:09:00 +00:00
parent 8c9544675b
commit dddfa3a900
1 changed files with 1 additions and 1 deletions

View File

@ -793,7 +793,7 @@ static int check_int (char *croak_str, SV *sv)
if (as_ref) \
av = newAV (); \
else \
av = 0, EXTEND (SP, arg[-1].data.d_int32); \
{ av = 0; EXTEND (SP, arg[-1].data.d_int32); } \
for (j = 0; j < arg[-1].data.d_int32; j++) \
if (as_ref) \
av_push (av, newsv (arg->data.datatype[j])); \