pike.git
/
src
/
modules
/
Perl
/
perlmod.c
version
»
Context lines:
10
20
40
80
file
none
3
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);