Parrot_get_runtime_prefix

0 views
Skip to first unread message

William Coleda

unread,
Feb 22, 2005, 10:57:38 PM2/22/05
to Perl 6 Internals
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?

Leopold Toetsch

unread,
Feb 23, 2005, 3:25:44 AM2/23/05
to William Coleda, perl6-i...@perl.org
William Coleda <wi...@coleda.com> 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

Reply all
Reply to author
Forward
0 new messages