pike.git / src / modules / Perl / perlmod.c

version» Context lines:

pike.git/src/modules/Perl/perlmod.c:145:       case 1:    THIS->argv_strings=sp[-args].u.array;    add_ref(THIS->argv_strings);    array_fix_type_field(THIS->argv_strings);       if(THIS->argv_strings->size<2)    error("Perl: Too few elements in argv array.\n");       if(THIS->argv_strings->type_field & ~BIT_STRING) -  error("Bad argument 2 to Perl->create().\n"); +  error("Bad argument 1 to Perl->create().\n");    }       THIS->argv=(char **)xalloc(sizeof(char *)*THIS->argv_strings->size);    for(e=0;e<THIS->argv_strings->size;e++)    THIS->argv[e]=ITEM(THIS->argv_strings)[e].u.string->str;       if(env_mapping)    {    INT32 d;    int env_block_size=0;