6 /* 1 = clean out filename's symbol table after each request, 0 = don't */
11 static PerlInterpreter *perl = NULL;
13 int main(int argc, char **argv, char **env)
15 char *embedding[] = { "", "persistent.pl"};
16 char *args[] = { "", DO_CLEAN, NULL };
20 if ((perl = perl_alloc()) == NULL) {
21 fprintf(stderr, "no memory!");
26 exitstatus = perl_parse(perl, NULL, 2, embedding, NULL);
29 exitstatus = perl_run(perl);
31 while(printf("Enter file name: ") && gets(filename)) {
33 /* call the subroutine, passing it the filename as an argument */
35 perl_call_argv("Embed::Persistent::eval_file",
36 G_DISCARD | G_EVAL, args);
39 if(SvTRUE(GvSV(errgv)))
40 fprintf(stderr, "eval error: %s\n", SvPV(GvSV(errgv),na));
44 perl_destruct_level = 0;