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

2000-02-18

2000-02-18 03:38:40 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 5f648cf4bb02c92bbb75babf7b6aaa02e25a524f (11 lines) (+9/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

ok, it should be fixed now...

Rev: src/modules/Perl/perlmod.c:1.11

171:    env_block_size+=k->ind.u.string->len+k->val.u.string->len+2;       THIS->env_block=xalloc(env_block_size); -  THIS->env=(char **)xalloc(m_sizeof(env_mapping)+1); +  THIS->env=(char **)xalloc(sizeof(char *)*(m_sizeof(env_mapping)+1));       env_blockp=THIS->env_block;    d=0;
205:    env_block_size+=strlen(environ[d])+1;       THIS->env_block=xalloc(env_block_size); -  THIS->env=(char **)xalloc(d+1); +  THIS->env=(char **)xalloc(sizeof(char *)*(d+1));       env_blockp=THIS->env_block;   
216:    MEMCPY(env_blockp,environ[d],l+1);    env_blockp+=l+1;    } +  + #ifdef PIKE_DEBUG +  if(env_blockp - THIS->env_block > env_block_size) +  fatal("Arglebargle glop-glyf.\n"); + #endif +     THIS->env[d]=0;    }