Tone down Makefile.PL so it works on Win32

[perl5.git] / ext / B / byteperl.c

diff --git a/ext/B/byteperl.c b/ext/B/byteperl.c
index c4bf6d7..6b53e3b 100644 (file)
--- a/ext/B/byteperl.c
+++ b/ext/B/byteperl.c
@@ -3,7 +3,6 @@
 #ifndef PATCHLEVEL
 #include "patchlevel.h"
 #endif
-#include "byterun.h"
 
 static void xs_init _((void));
 static PerlInterpreter *my_perl;
@@ -35,16 +34,20 @@ main(int argc, char **argv, char **env)
     perl_init_i18nl14n(1);
 #endif
 
-    if (!do_undump) {
+    if (!PL_do_undump) {
        my_perl = perl_alloc();
        if (!my_perl)
+#ifdef VMS
+           exit(vaxc$errno);
+#else
            exit(1);
+#endif
        perl_construct( my_perl );
     }
 
 #ifdef CSH
-    if (!cshlen) 
-      cshlen = strlen(cshname);
+    if (!PL_cshlen) 
+      PL_cshlen = strlen(PL_cshname);
 #endif
 
     if (argc < 2)
@@ -57,7 +60,11 @@ main(int argc, char **argv, char **env)
 #endif
        if (!fp) {
            perror(argv[1]);
+#ifdef VMS
+           exit(vaxc$errno);
+#else
            exit(1);
+#endif
        }
        argv++;
        argc--;
@@ -76,8 +83,8 @@ main(int argc, char **argv, char **env)
        exit( exitstatus );
 
     sv_setpv(GvSV(gv_fetchpv("0", TRUE, SVt_PV)), argv[0]);
-    main_cv = compcv;
-    compcv = 0;
+    PL_main_cv = PL_compcv;
+    PL_compcv = 0;
 
 #ifdef INDIRECT_BGET_MACROS
     bs.data = fp;