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

version» Context lines:

pike.git/src/modules/Perl/perlmod.c:220:   }      void pike_module_init(void)   {    perl_destruct_level=2;    start_new_program();    ADD_STORAGE(struct perlmod_storage);    /* function(array(string),void|mapping(string:string):int) */    ADD_FUNCTION("create",perlmod_create,tFunc(tArr(tStr) tOr(tVoid,tMap(tStr,tStr)),tInt),0);    /* function(:int) */ -  ADD_FUNCTION("run",perlmod_run,tFunc(,tInt),0); +  ADD_FUNCTION("run",perlmod_run,tFunc(tNone,tInt),0);    /* function(string:int) */    ADD_FUNCTION("eval",perlmod_eval,tFunc(tStr,tInt),0);    /* function(string,mixed...:int) */    ADD_FUNCTION("call",perlmod_call,tFuncV(tStr,tMix,tInt),0);    set_init_callback(init_perl_glue);    set_exit_callback(exit_perl_glue);    end_class("Perl",0);       add_integer_constant("MULTIPLICITY",   #ifdef MULTIPLICITY