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

version» Context lines:

pike.git/src/modules/Perl/perlmod.c:214:      static void perlmod_call(INT32 args)   {    error("Perl->call not yet implemented.\n");   }      void pike_module_init(void)   {    perl_destruct_level=2;    start_new_program(); -  add_storage(sizeof(struct perlmod_storage)); +  ADD_STORAGE(struct perlmod_storage);    add_function("create",perlmod_create,"function(array(string),void|mapping(string:string):int)",0);    add_function("run",perlmod_run,"function(:int)",0);    add_function("eval",perlmod_eval,"function(string:int)",0);    add_function("call",perlmod_call,"function(string,mixed...:int)",0);    set_init_callback(init_perl_glue);    set_exit_callback(exit_perl_glue);    end_class("Perl",0);       add_integer_constant("MULTIPLICITY",   #ifdef MULTIPLICITY