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;