--- miniperlmain.c      2002-09-22 05:31:56.000000000 -0700
+++ miniperlmain.c.org  2002-09-22 05:31:56.000000000 -0700

@@ -27,8 +25,6 @@
 #define PERL_IN_MINIPERLMAIN_C
 #include "perl.h"

-#include <string.h>
-
 static void xs_init (pTHX);
 static PerlInterpreter *my_perl;

@@ -42,52 +38,6 @@
 main(int argc, char **argv, char **env)
 {
     int exitstatus;
-    char  HWXmain[300] ;
-    char  HWXopt[] = "-e";
-    char  HWXsize[] = "##[HWXZ]##";
-    char  HWXsize2[] = "##[HWXS]##";
-    int   HWXrun=1 ;
-    char  *arg0=NULL ;
-    char  *arg1=NULL ;
-    int   n, i, j ;
-    char  HWXrunA[] = "my%HWX_BIN;eval{my%HWX=(z=>'" ;
-    char  HWXrunB[] = "',s=>'" ;
-    char  HWXrunC[] = "',x=>$^X);if((!-s$HWX{x})||-d$HWX{x}){if($^O=~/(msw|win|dos)/i){$HWX{x}.='.exe'}}open(HWX,$HWX{x
});binmode(HWX);seek(HWX,$HWX{z},0);read(HWX,$_,$HWX{s});close(HWX);%HWX_BIN=%HWX};eval($_);if($@){print STDERR$@}" ;
-
-    arg1 = malloc(sizeof(char) * strlen(HWXsize) + 1) ;
-    strcpy (arg1, HWXsize);
-    if ( arg1[0] == '#' ) { HWXrun = 0 ;}
-
-    if (argc > 1 && HWXrun == 1) {
-       arg1 = malloc(sizeof(char) * strlen(argv[1]) + 1) ;
-       strcpy (arg1, argv[1]);
-       if ( arg1[0] == '-' && arg1[1] != '-' ) { HWXrun = 0 ;}
-    }
-
-    if ( HWXrun == 1 ) {
-      sprintf(HWXmain,"%s%s%s%s%s\0",HWXrunA,HWXsize,HWXrunB,HWXsize2,HWXrunC);
-
-      arg0 = malloc(sizeof(char) * strlen(argv[0]) + 1) ;
-      strcpy (arg0, argv[0]);
-
-      n = argc ;
-      argc = argc + 2 ;
-      i = n - 1 ;
-      j = 1 ;
-
-      while (i > 0) {
-        j = i + 2 ;
-        argv[j] = argv[i] ;
-        i-- ;
-      }
-
-      argv[0] = arg0 ;
-      argv[1] = HWXopt ;
-      argv[2] = HWXmain ;
-
-      //fprintf(stdout,">> %s\n",HWXmain);
-    }
-

 #ifdef PERL_GLOBAL_STRUCT
 #define PERLVAR(var,type) /**/


--- runperl.c   2002-09-22 05:32:01.000000000 -0700
+++ runperl.c.orig      2002-09-22 05:32:01.000000000 -0700
 #include "EXTERN.h"
 #include "perl.h"

-#include <string.h>
-
 #ifdef __GNUC__

 /* Mingw32 defaults to globing command line
@@ -27,52 +15,6 @@
 int
 main(int argc, char **argv, char **env)
 {
-    char  HWXmain[300] ;
-    char  HWXopt[] = "-e";
-    char  HWXsize[] = "##[HWXZ]##";
-    char  HWXsize2[] = "##[HWXS]##";
-    int   HWXrun=1 ;
-    char  *arg0=NULL ;
-    char  *arg1=NULL ;
-    int   n, i, j ;
-    char  HWXrunA[] = "my%HWX_BIN;eval{my%HWX=(z=>'" ;
-    char  HWXrunB[] = "',s=>'" ;
-    char  HWXrunC[] = "',x=>$^X);if((!-s$HWX{x})||-d$HWX{x}){if($^O=~/(msw|win|dos)/i){$HWX{x}.='.exe'}}open(HWX,$HWX{x
});binmode(HWX);seek(HWX,$HWX{z},0);read(HWX,$_,$HWX{s});close(HWX);%HWX_BIN=%HWX};eval($_);if($@){print STDERR$@}" ;
-
-    arg1 = malloc(sizeof(char) * strlen(HWXsize) + 1) ;
-    strcpy (arg1, HWXsize);
-    if ( arg1[0] == '#' ) { HWXrun = 0 ;}
-
-    if (argc > 1 && HWXrun == 1) {
-       arg1 = malloc(sizeof(char) * strlen(argv[1]) + 1) ;
-       strcpy (arg1, argv[1]);
-       if ( arg1[0] == '-' && arg1[1] != '-' ) { HWXrun = 0 ;}
-    }
-
-    if ( HWXrun == 1 ) {
-      sprintf(HWXmain,"%s%s%s%s%s\0",HWXrunA,HWXsize,HWXrunB,HWXsize2,HWXrunC);
-
-      arg0 = malloc(sizeof(char) * strlen(argv[0]) + 1) ;
-      strcpy (arg0, argv[0]);
-
-      n = argc ;
-      argc = argc + 2 ;
-      i = n - 1 ;
-      j = 1 ;
-
-      while (i > 0) {
-        j = i + 2 ;
-        argv[j] = argv[i] ;
-        i-- ;
-      }
-
-      argv[0] = arg0 ;
-      argv[1] = HWXopt ;
-      argv[2] = HWXmain ;
-
-      //fprintf(stdout,">> %s\n",HWXmain);
-    }
-
     return RunPerl(argc, argv, env);
 }