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

version» Context lines:

pike.git/src/modules/Perl/perlmod.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: perlmod.c,v 1.31 2002/11/26 14:18:34 nilsson Exp $ + || $Id: perlmod.c,v 1.32 2002/11/26 14:22:47 nilsson Exp $   */      #define NO_PIKE_SHORTHAND      #include "builtin_functions.h"   #include "global.h"   #include "svalue.h"   #include "array.h"   #include "stralloc.h"   #include "interpret.h"
pike.git/src/modules/Perl/perlmod.c:1075:    break;       default:    Pike_error("Wrong number of arguments.\n");    }       pop_n_elems(args);    push_int(_THIS->array_size_limit);   }    + /*! @endclass +  */ +  + /*! @endmodule +  */ +    PIKE_MODULE_INIT   {   #ifdef PIKE_PERLDEBUG    fprintf(stderr, "[perl: module init]\n");   #endif       start_new_program();    ADD_STORAGE(struct perlmod_storage);    /* function(void:int) */    ADD_FUNCTION("create",perlmod_create,tFunc(tVoid,tInt),0);