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

version» Context lines:

pike.git/src/modules/Perl/perlmod.c:1: - /* $Id: perlmod.c,v 1.19 2000/10/11 23:55:44 mast Exp $ */ + /* $Id: perlmod.c,v 1.20 2000/10/12 00:34:18 mast 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:167:    int env_block_size=0;    char *env_blockp;      #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);    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);