46 lines
616 B
C
46 lines
616 B
C
/*
|
|
* perl builtin
|
|
*/
|
|
#include <config.h>
|
|
|
|
#include <fcntl.h>
|
|
#include <errno.h>
|
|
|
|
#include "builtins.h"
|
|
#include "shell.h"
|
|
|
|
#ifndef errno
|
|
extern int errno;
|
|
#endif
|
|
|
|
extern char **make_builtin_argv ();
|
|
extern char **export_env;
|
|
|
|
extern int perl_main();
|
|
|
|
bperl_builtin(list)
|
|
WORD_LIST *list;
|
|
{
|
|
char **v;
|
|
int c, r;
|
|
|
|
v = make_builtin_argv(list, &c);
|
|
r = perl_main(c, v, export_env);
|
|
free(v);
|
|
|
|
return r;
|
|
}
|
|
|
|
char *bperl_doc[] = {
|
|
"An interface to a perl5 interpreter.",
|
|
(char *)0
|
|
};
|
|
|
|
struct builtin bperl_struct = {
|
|
"bperl",
|
|
bperl_builtin,
|
|
BUILTIN_ENABLED,
|
|
bperl_doc,
|
|
"bperl [perl options] [file ...]",
|
|
0
|
|
};
|