diff options
Diffstat (limited to 'perlmain.c')
-rw-r--r-- | perlmain.c | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/perlmain.c b/perlmain.c deleted file mode 100644 index d3ff323a73..0000000000 --- a/perlmain.c +++ /dev/null @@ -1,38 +0,0 @@ -#include "INTERN.h" -#include "perl.h" - -main(argc, argv, env) -int argc; -char **argv; -char **env; -{ - int exitstatus; - PerlInterpreter *my_perl; - - my_perl = perl_alloc(); - if (!my_perl) - exit(1); - perl_construct( my_perl ); - - exitstatus = perl_parse( my_perl, argc, argv, env ); - if (exitstatus) - exit( exitstatus ); - - exitstatus = perl_run( my_perl ); - - perl_destruct( my_perl ); - perl_free( my_perl ); - - exit( exitstatus ); -} - -/* Register any extra external extensions */ - -void -perl_init_ext() -{ - char *file = __FILE__; - /* Do not delete this line--writemain depends on it */ - boot_DynamicLoader(); - -} |