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

version» Context lines:

pike.git/src/modules/Perl/perlmod.c:1: - /* $Id: perlmod.c,v 1.20 2000/10/12 00:34:18 mast Exp $ */ + /* $Id: perlmod.c,v 1.21 2000/10/12 10:45:25 grubba Exp $ */      #define NO_PIKE_SHORTHAND      #include "builtin_functions.h"   #include "global.h"   #include "svalue.h"   #include "array.h"   #include "stralloc.h"   #include "interpret.h"   #include "module_support.h"
pike.git/src/modules/Perl/perlmod.c:169: Inside #if defined(DECLARE_ENVIRON)
     #ifdef DECLARE_ENVIRON    extern char **environ;   #endif       for(d=0;environ[d];d++)    env_block_size+=strlen(environ[d])+1;       if (env_block_size)    ps->env_block=xalloc(env_block_size); +  else +  ps->env_block = NULL;    ps->env=(char **)xalloc(sizeof(char *)*(d+1));       env_blockp = ps->env_block;       for(d=0;environ[d];d++)    {    int l=strlen(environ[d]);    ps->env[d]=env_blockp;    MEMCPY(env_blockp,environ[d],l+1);    env_blockp+=l+1;