44 char *
prog[] = {
"", *argv };
58 my_perl = perl_alloc();
59 if (!my_perl) logmsg(
Who,111,FATAL,
"out of memory");
60 perl_construct(my_perl);
62 logmsg(
Who,111,FATAL,
"perl_parse failed");
64 if (perl_run(my_perl))
65 logmsg(
Who,111,FATAL,
"perl_run failed");
68 if (!stralloc_copys(&newenv,
"%ENV=("))
69 logmsg(
Who,111,FATAL,
"out of memory");
71 for (i = 0; origenv[i]; ++i) {
74 split = str_chr(x,
'=');
76 for (j = 0; j < split; ++j) {
77 if (*x ==
'\'' || *x ==
'\\')
env_append(
"\\");
85 if (*x ==
'\'' || *x ==
'\\')
env_append(
"\\");
100 if (
call_argv(*argv,G_VOID|G_DISCARD,argv + 1))
101 logmsg(
Who,111,FATAL,
"interpreter failed");