add B::PV::{LEN,CUR}

[p5sagit/p5-mst-13.2.git] / ext / B / byteperl.c

diff --git a/ext/B/byteperl.c b/ext/B/byteperl.c
index 6b53e3b..17dfdee 100644 (file)
--- a/ext/B/byteperl.c
+++ b/ext/B/byteperl.c
@@ -1,10 +1,7 @@
 #include "EXTERN.h"
 #include "perl.h"
-#ifndef PATCHLEVEL
-#include "patchlevel.h"
-#endif
 
-static void xs_init _((void));
+static void xs_init (void);
 static PerlInterpreter *my_perl;
 
 int
@@ -28,11 +25,7 @@ main(int argc, char **argv, char **env)
     INIT_SPECIALSV_LIST;
     PERL_SYS_INIT(&argc,&argv);
  
-#if PATCHLEVEL > 3 || (PATCHLEVEL == 3 && SUBVERSION >= 1)
     perl_init_i18nl10n(1);
-#else
-    perl_init_i18nl14n(1);
-#endif
 
     if (!PL_do_undump) {
        my_perl = perl_alloc();
@@ -88,8 +81,8 @@ main(int argc, char **argv, char **env)
 
 #ifdef INDIRECT_BGET_MACROS
     bs.data = fp;
-    bs.fgetc = (int(*) _((void*)))fgetc;
-    bs.fread = (int(*) _((char*,size_t,size_t,void*)))fread;
+    bs.fgetc = (int(*) (void*))fgetc;
+    bs.fread = (int(*) (char*,size_t,size_t,void*))fread;
     bs.freadpv = freadpv;
     byterun(bs);
 #else