1 files changed, 0 insertions, 72 deletions
diff --git a/contrib/perl5/miniperlmain.c b/contrib/perl5/miniperlmain.c
deleted file mode 100644
index d1b3e8e..0000000
--- a/contrib/perl5/miniperlmain.c
+++ /dev/null
@@ -1,72 +0,0 @@
-/*
- * "The Road goes ever on and on, down from the door where it began."
- */
-
-#ifdef OEMVS
-#pragma runopts(HEAP(1M,32K,ANYWHERE,KEEP,8K,4K))
-#endif
-
-
-#include "EXTERN.h"
-#define PERL_IN_MINIPERLMAIN_C
-#include "perl.h"
-
-static void xs_init (pTHX);
-static PerlInterpreter *my_perl;
-
-#if defined (__MINT__) || defined (atarist)
-/* The Atari operating system doesn't have a dynamic stack.  The
-   stack size is determined from this value.  */
-long _stksize = 64 * 1024;
-#endif
-
-int
-main(int argc, char **argv, char **env)
-{
-    int exitstatus;
-
-#ifdef PERL_GLOBAL_STRUCT
-#define PERLVAR(var,type) /**/
-#define PERLVARA(var,type) /**/
-#define PERLVARI(var,type,init) PL_Vars.var = init;
-#define PERLVARIC(var,type,init) PL_Vars.var = init;
-#include "perlvars.h"
-#undef PERLVAR
-#undef PERLVARA
-#undef PERLVARI
-#undef PERLVARIC
-#endif
-
-    PERL_SYS_INIT3(&argc,&argv,&env);
-
-    if (!PL_do_undump) {
-	my_perl = perl_alloc();
-	if (!my_perl)
-	    exit(1);
-	perl_construct(my_perl);
-	PL_perl_destruct_level = 0;
-    }
-
-    exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
-    if (!exitstatus) {
-	exitstatus = perl_run(my_perl);
-    }
-
-    perl_destruct(my_perl);
-    perl_free(my_perl);
-
-    PERL_SYS_TERM();
-
-    exit(exitstatus);
-    return exitstatus;
-}
-
-/* Register any extra external extensions */
-
-/* Do not delete this line--writemain depends on it */
-
-static void
-xs_init(pTHX)
-{
-    dXSUB_SYS;
-}