PERL PERL6 INTERNALS 12 PARROT GET RUNTIME PREFIX
Date: Tue, 22 Feb 2005 22:57:38 -0500

Subject: Parrot_get_runtime_prefix
From: will@no-spam (William Coleda)

in src/library.c (main branch), I find:

const char*
Parrot_get_runtime_prefix(Interp *interpreter, STRING **prefix_str)
{
static STRING *s;
static int init_done;
static const char *prefix;
int free_env;
char *env;

if (!*runtime_prefix)
return NULL;
if (!init_done) {
/* stat()ing the top level directory doesn't work reliably as often
...

init_done is never initialized here. What's up?


Subject: Re: Parrot_get_runtime_prefix
Date: Wed, 23 Feb 2005 09:25:44 +0100



From: lt@no-spam (Leopold Toetsch)
William Coleda <will@no-spam> wrote:
> in src/library.c (main branch), I find:

> const char*
> Parrot_get_runtime_prefix(Interp *interpreter, STRING **prefix_str)
> {
> static STRING *s;
> static int init_done;
^^^^^^

> init_done is never initialized here. What's up?

It ought to be zero initially.

leo