Integrate mainline
Nick Ing-Simmons [Mon, 3 Sep 2001 06:20:06 +0000 (06:20 +0000)]
p4raw-id: //depot/perlio@11835

1  2 
objXSUB.h
t/op/inccode.t

diff --cc objXSUB.h
index f67daed,0000000..d9d73b7
mode 100644,000000..100644
--- /dev/null
+++ b/objXSUB.h
@@@ -1,2483 -1,0 +1,2493 @@@
 +/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 +   This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
 +   perlvars.h and thrdvar.h.  Any changes made here will be lost!
 +*/
 +
 +#ifndef __objXSUB_h__
 +#define __objXSUB_h__
 +
 +/* method calls via pPerl (static functions without a "this" pointer need these) */
 +
 +#if defined(PERL_CORE) && defined(PERL_OBJECT)
 +
 +/* XXX soon to be eliminated, only a few things in PERLCORE need these now */
 +
 +#if defined(PERL_IMPLICIT_SYS)
 +#endif
 +#if defined(USE_ITHREADS)
 +#  if defined(PERL_IMPLICIT_SYS)
 +#  endif
 +#endif
 +#if defined(MYMALLOC)
 +#endif
 +#if defined(PERL_OBJECT)
 +#ifndef __BORLANDC__
 +#endif
 +#endif
 +#if defined(PERL_OBJECT)
 +#else
 +#endif
 +#undef  Perl_amagic_call
 +#define Perl_amagic_call      pPerl->Perl_amagic_call
 +#undef  amagic_call
 +#define amagic_call           Perl_amagic_call
 +#undef  Perl_Gv_AMupdate
 +#define Perl_Gv_AMupdate      pPerl->Perl_Gv_AMupdate
 +#undef  Gv_AMupdate
 +#define Gv_AMupdate           Perl_Gv_AMupdate
 +#undef  Perl_gv_handler
 +#define Perl_gv_handler               pPerl->Perl_gv_handler
 +#undef  gv_handler
 +#define gv_handler            Perl_gv_handler
 +#undef  Perl_apply_attrs_string
 +#define Perl_apply_attrs_string       pPerl->Perl_apply_attrs_string
 +#undef  apply_attrs_string
 +#define apply_attrs_string    Perl_apply_attrs_string
 +#undef  Perl_avhv_delete_ent
 +#define Perl_avhv_delete_ent  pPerl->Perl_avhv_delete_ent
 +#undef  avhv_delete_ent
 +#define avhv_delete_ent               Perl_avhv_delete_ent
 +#undef  Perl_avhv_exists_ent
 +#define Perl_avhv_exists_ent  pPerl->Perl_avhv_exists_ent
 +#undef  avhv_exists_ent
 +#define avhv_exists_ent               Perl_avhv_exists_ent
 +#undef  Perl_avhv_fetch_ent
 +#define Perl_avhv_fetch_ent   pPerl->Perl_avhv_fetch_ent
 +#undef  avhv_fetch_ent
 +#define avhv_fetch_ent                Perl_avhv_fetch_ent
 +#undef  Perl_avhv_store_ent
 +#define Perl_avhv_store_ent   pPerl->Perl_avhv_store_ent
 +#undef  avhv_store_ent
 +#define avhv_store_ent                Perl_avhv_store_ent
 +#undef  Perl_avhv_iternext
 +#define Perl_avhv_iternext    pPerl->Perl_avhv_iternext
 +#undef  avhv_iternext
 +#define avhv_iternext         Perl_avhv_iternext
 +#undef  Perl_avhv_iterval
 +#define Perl_avhv_iterval     pPerl->Perl_avhv_iterval
 +#undef  avhv_iterval
 +#define avhv_iterval          Perl_avhv_iterval
 +#undef  Perl_avhv_keys
 +#define Perl_avhv_keys                pPerl->Perl_avhv_keys
 +#undef  avhv_keys
 +#define avhv_keys             Perl_avhv_keys
 +#undef  Perl_av_clear
 +#define Perl_av_clear         pPerl->Perl_av_clear
 +#undef  av_clear
 +#define av_clear              Perl_av_clear
 +#undef  Perl_av_delete
 +#define Perl_av_delete                pPerl->Perl_av_delete
 +#undef  av_delete
 +#define av_delete             Perl_av_delete
 +#undef  Perl_av_exists
 +#define Perl_av_exists                pPerl->Perl_av_exists
 +#undef  av_exists
 +#define av_exists             Perl_av_exists
 +#undef  Perl_av_extend
 +#define Perl_av_extend                pPerl->Perl_av_extend
 +#undef  av_extend
 +#define av_extend             Perl_av_extend
 +#undef  Perl_av_fetch
 +#define Perl_av_fetch         pPerl->Perl_av_fetch
 +#undef  av_fetch
 +#define av_fetch              Perl_av_fetch
 +#undef  Perl_av_fill
 +#define Perl_av_fill          pPerl->Perl_av_fill
 +#undef  av_fill
 +#define av_fill                       Perl_av_fill
 +#undef  Perl_av_len
 +#define Perl_av_len           pPerl->Perl_av_len
 +#undef  av_len
 +#define av_len                        Perl_av_len
 +#undef  Perl_av_make
 +#define Perl_av_make          pPerl->Perl_av_make
 +#undef  av_make
 +#define av_make                       Perl_av_make
 +#undef  Perl_av_pop
 +#define Perl_av_pop           pPerl->Perl_av_pop
 +#undef  av_pop
 +#define av_pop                        Perl_av_pop
 +#undef  Perl_av_push
 +#define Perl_av_push          pPerl->Perl_av_push
 +#undef  av_push
 +#define av_push                       Perl_av_push
 +#undef  Perl_av_shift
 +#define Perl_av_shift         pPerl->Perl_av_shift
 +#undef  av_shift
 +#define av_shift              Perl_av_shift
 +#undef  Perl_av_store
 +#define Perl_av_store         pPerl->Perl_av_store
 +#undef  av_store
 +#define av_store              Perl_av_store
 +#undef  Perl_av_undef
 +#define Perl_av_undef         pPerl->Perl_av_undef
 +#undef  av_undef
 +#define av_undef              Perl_av_undef
 +#undef  Perl_av_unshift
 +#define Perl_av_unshift               pPerl->Perl_av_unshift
 +#undef  av_unshift
 +#define av_unshift            Perl_av_unshift
 +#undef  Perl_block_gimme
 +#define Perl_block_gimme      pPerl->Perl_block_gimme
 +#undef  block_gimme
 +#define block_gimme           Perl_block_gimme
 +#undef  Perl_call_list
 +#define Perl_call_list                pPerl->Perl_call_list
 +#undef  call_list
 +#define call_list             Perl_call_list
 +#undef  Perl_cast_ulong
 +#define Perl_cast_ulong               pPerl->Perl_cast_ulong
 +#undef  cast_ulong
 +#define cast_ulong            Perl_cast_ulong
 +#undef  Perl_cast_i32
 +#define Perl_cast_i32         pPerl->Perl_cast_i32
 +#undef  cast_i32
 +#define cast_i32              Perl_cast_i32
 +#undef  Perl_cast_iv
 +#define Perl_cast_iv          pPerl->Perl_cast_iv
 +#undef  cast_iv
 +#define cast_iv                       Perl_cast_iv
 +#undef  Perl_cast_uv
 +#define Perl_cast_uv          pPerl->Perl_cast_uv
 +#undef  cast_uv
 +#define cast_uv                       Perl_cast_uv
 +#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
 +#undef  Perl_my_chsize
 +#define Perl_my_chsize                pPerl->Perl_my_chsize
 +#undef  my_chsize
 +#define my_chsize             Perl_my_chsize
 +#endif
- #if defined(USE_THREADS)
++#if defined(USE_5005THREADS)
 +#undef  Perl_condpair_magic
 +#define Perl_condpair_magic   pPerl->Perl_condpair_magic
 +#undef  condpair_magic
 +#define condpair_magic                Perl_condpair_magic
 +#endif
 +#undef  Perl_croak
 +#define Perl_croak            pPerl->Perl_croak
 +#undef  croak
 +#define croak                 Perl_croak
 +#undef  Perl_vcroak
 +#define Perl_vcroak           pPerl->Perl_vcroak
 +#undef  vcroak
 +#define vcroak                        Perl_vcroak
 +#if defined(PERL_IMPLICIT_CONTEXT)
 +#undef  Perl_croak_nocontext
 +#define Perl_croak_nocontext  pPerl->Perl_croak_nocontext
 +#undef  croak_nocontext
 +#define croak_nocontext               Perl_croak_nocontext
 +#undef  Perl_die_nocontext
 +#define Perl_die_nocontext    pPerl->Perl_die_nocontext
 +#undef  die_nocontext
 +#define die_nocontext         Perl_die_nocontext
 +#undef  Perl_deb_nocontext
 +#define Perl_deb_nocontext    pPerl->Perl_deb_nocontext
 +#undef  deb_nocontext
 +#define deb_nocontext         Perl_deb_nocontext
 +#undef  Perl_form_nocontext
 +#define Perl_form_nocontext   pPerl->Perl_form_nocontext
 +#undef  form_nocontext
 +#define form_nocontext                Perl_form_nocontext
 +#undef  Perl_load_module_nocontext
 +#define Perl_load_module_nocontext    pPerl->Perl_load_module_nocontext
 +#undef  load_module_nocontext
 +#define load_module_nocontext Perl_load_module_nocontext
 +#undef  Perl_mess_nocontext
 +#define Perl_mess_nocontext   pPerl->Perl_mess_nocontext
 +#undef  mess_nocontext
 +#define mess_nocontext                Perl_mess_nocontext
 +#undef  Perl_warn_nocontext
 +#define Perl_warn_nocontext   pPerl->Perl_warn_nocontext
 +#undef  warn_nocontext
 +#define warn_nocontext                Perl_warn_nocontext
 +#undef  Perl_warner_nocontext
 +#define Perl_warner_nocontext pPerl->Perl_warner_nocontext
 +#undef  warner_nocontext
 +#define warner_nocontext      Perl_warner_nocontext
 +#undef  Perl_newSVpvf_nocontext
 +#define Perl_newSVpvf_nocontext       pPerl->Perl_newSVpvf_nocontext
 +#undef  newSVpvf_nocontext
 +#define newSVpvf_nocontext    Perl_newSVpvf_nocontext
 +#undef  Perl_sv_catpvf_nocontext
 +#define Perl_sv_catpvf_nocontext      pPerl->Perl_sv_catpvf_nocontext
 +#undef  sv_catpvf_nocontext
 +#define sv_catpvf_nocontext   Perl_sv_catpvf_nocontext
 +#undef  Perl_sv_setpvf_nocontext
 +#define Perl_sv_setpvf_nocontext      pPerl->Perl_sv_setpvf_nocontext
 +#undef  sv_setpvf_nocontext
 +#define sv_setpvf_nocontext   Perl_sv_setpvf_nocontext
 +#undef  Perl_sv_catpvf_mg_nocontext
 +#define Perl_sv_catpvf_mg_nocontext   pPerl->Perl_sv_catpvf_mg_nocontext
 +#undef  sv_catpvf_mg_nocontext
 +#define sv_catpvf_mg_nocontext        Perl_sv_catpvf_mg_nocontext
 +#undef  Perl_sv_setpvf_mg_nocontext
 +#define Perl_sv_setpvf_mg_nocontext   pPerl->Perl_sv_setpvf_mg_nocontext
 +#undef  sv_setpvf_mg_nocontext
 +#define sv_setpvf_mg_nocontext        Perl_sv_setpvf_mg_nocontext
 +#undef  Perl_fprintf_nocontext
 +#define Perl_fprintf_nocontext        pPerl->Perl_fprintf_nocontext
 +#undef  fprintf_nocontext
 +#define fprintf_nocontext     Perl_fprintf_nocontext
 +#undef  Perl_printf_nocontext
 +#define Perl_printf_nocontext pPerl->Perl_printf_nocontext
 +#undef  printf_nocontext
 +#define printf_nocontext      Perl_printf_nocontext
 +#endif
 +#undef  Perl_cv_const_sv
 +#define Perl_cv_const_sv      pPerl->Perl_cv_const_sv
 +#undef  cv_const_sv
 +#define cv_const_sv           Perl_cv_const_sv
 +#undef  Perl_cv_undef
 +#define Perl_cv_undef         pPerl->Perl_cv_undef
 +#undef  cv_undef
 +#define cv_undef              Perl_cv_undef
 +#undef  Perl_cx_dump
 +#define Perl_cx_dump          pPerl->Perl_cx_dump
 +#undef  cx_dump
 +#define cx_dump                       Perl_cx_dump
 +#undef  Perl_filter_add
 +#define Perl_filter_add               pPerl->Perl_filter_add
 +#undef  filter_add
 +#define filter_add            Perl_filter_add
 +#undef  Perl_filter_del
 +#define Perl_filter_del               pPerl->Perl_filter_del
 +#undef  filter_del
 +#define filter_del            Perl_filter_del
 +#undef  Perl_filter_read
 +#define Perl_filter_read      pPerl->Perl_filter_read
 +#undef  filter_read
 +#define filter_read           Perl_filter_read
 +#undef  Perl_get_op_descs
 +#define Perl_get_op_descs     pPerl->Perl_get_op_descs
 +#undef  get_op_descs
 +#define get_op_descs          Perl_get_op_descs
 +#undef  Perl_get_op_names
 +#define Perl_get_op_names     pPerl->Perl_get_op_names
 +#undef  get_op_names
 +#define get_op_names          Perl_get_op_names
 +#undef  Perl_get_ppaddr
 +#define Perl_get_ppaddr               pPerl->Perl_get_ppaddr
 +#undef  get_ppaddr
 +#define get_ppaddr            Perl_get_ppaddr
 +#undef  Perl_deb
 +#define Perl_deb              pPerl->Perl_deb
 +#undef  deb
 +#define deb                   Perl_deb
 +#undef  Perl_vdeb
 +#define Perl_vdeb             pPerl->Perl_vdeb
 +#undef  vdeb
 +#define vdeb                  Perl_vdeb
 +#undef  Perl_debprofdump
 +#define Perl_debprofdump      pPerl->Perl_debprofdump
 +#undef  debprofdump
 +#define debprofdump           Perl_debprofdump
 +#undef  Perl_debop
 +#define Perl_debop            pPerl->Perl_debop
 +#undef  debop
 +#define debop                 Perl_debop
 +#undef  Perl_debstack
 +#define Perl_debstack         pPerl->Perl_debstack
 +#undef  debstack
 +#define debstack              Perl_debstack
 +#undef  Perl_debstackptrs
 +#define Perl_debstackptrs     pPerl->Perl_debstackptrs
 +#undef  debstackptrs
 +#define debstackptrs          Perl_debstackptrs
 +#undef  Perl_delimcpy
 +#define Perl_delimcpy         pPerl->Perl_delimcpy
 +#undef  delimcpy
 +#define delimcpy              Perl_delimcpy
 +#undef  Perl_die
 +#define Perl_die              pPerl->Perl_die
 +#undef  die
 +#define die                   Perl_die
 +#undef  Perl_dounwind
 +#define Perl_dounwind         pPerl->Perl_dounwind
 +#undef  dounwind
 +#define dounwind              Perl_dounwind
 +#undef  Perl_do_binmode
 +#define Perl_do_binmode               pPerl->Perl_do_binmode
 +#undef  do_binmode
 +#define do_binmode            Perl_do_binmode
 +#undef  Perl_do_close
 +#define Perl_do_close         pPerl->Perl_do_close
 +#undef  do_close
 +#define do_close              Perl_do_close
 +#if !defined(WIN32)
 +#endif
 +#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 +#endif
 +#undef  Perl_do_join
 +#define Perl_do_join          pPerl->Perl_do_join
 +#undef  do_join
 +#define do_join                       Perl_do_join
 +#undef  Perl_do_open
 +#define Perl_do_open          pPerl->Perl_do_open
 +#undef  do_open
 +#define do_open                       Perl_do_open
 +#undef  Perl_do_open9
 +#define Perl_do_open9         pPerl->Perl_do_open9
 +#undef  do_open9
 +#define do_open9              Perl_do_open9
 +#undef  Perl_do_openn
 +#define Perl_do_openn         pPerl->Perl_do_openn
 +#undef  do_openn
 +#define do_openn              Perl_do_openn
 +#undef  Perl_dowantarray
 +#define Perl_dowantarray      pPerl->Perl_dowantarray
 +#undef  dowantarray
 +#define dowantarray           Perl_dowantarray
 +#undef  Perl_dump_all
 +#define Perl_dump_all         pPerl->Perl_dump_all
 +#undef  dump_all
 +#define dump_all              Perl_dump_all
 +#undef  Perl_dump_eval
 +#define Perl_dump_eval                pPerl->Perl_dump_eval
 +#undef  dump_eval
 +#define dump_eval             Perl_dump_eval
 +#if defined(DUMP_FDS)
 +#undef  Perl_dump_fds
 +#define Perl_dump_fds         pPerl->Perl_dump_fds
 +#undef  dump_fds
 +#define dump_fds              Perl_dump_fds
 +#endif
 +#undef  Perl_dump_form
 +#define Perl_dump_form                pPerl->Perl_dump_form
 +#undef  dump_form
 +#define dump_form             Perl_dump_form
 +#undef  Perl_gv_dump
 +#define Perl_gv_dump          pPerl->Perl_gv_dump
 +#undef  gv_dump
 +#define gv_dump                       Perl_gv_dump
 +#undef  Perl_op_dump
 +#define Perl_op_dump          pPerl->Perl_op_dump
 +#undef  op_dump
 +#define op_dump                       Perl_op_dump
 +#undef  Perl_pmop_dump
 +#define Perl_pmop_dump                pPerl->Perl_pmop_dump
 +#undef  pmop_dump
 +#define pmop_dump             Perl_pmop_dump
 +#undef  Perl_dump_packsubs
 +#define Perl_dump_packsubs    pPerl->Perl_dump_packsubs
 +#undef  dump_packsubs
 +#define dump_packsubs         Perl_dump_packsubs
 +#undef  Perl_dump_sub
 +#define Perl_dump_sub         pPerl->Perl_dump_sub
 +#undef  dump_sub
 +#define dump_sub              Perl_dump_sub
 +#undef  Perl_fbm_compile
 +#define Perl_fbm_compile      pPerl->Perl_fbm_compile
 +#undef  fbm_compile
 +#define fbm_compile           Perl_fbm_compile
 +#undef  Perl_fbm_instr
 +#define Perl_fbm_instr                pPerl->Perl_fbm_instr
 +#undef  fbm_instr
 +#define fbm_instr             Perl_fbm_instr
- #if defined(USE_THREADS)
++#if defined(USE_5005THREADS)
 +#endif
 +#undef  Perl_form
 +#define Perl_form             pPerl->Perl_form
 +#undef  form
 +#define form                  Perl_form
 +#undef  Perl_vform
 +#define Perl_vform            pPerl->Perl_vform
 +#undef  vform
 +#define vform                 Perl_vform
 +#undef  Perl_free_tmps
 +#define Perl_free_tmps                pPerl->Perl_free_tmps
 +#undef  free_tmps
 +#define free_tmps             Perl_free_tmps
 +#if !defined(HAS_GETENV_LEN)
 +#endif
 +#undef  Perl_gp_free
 +#define Perl_gp_free          pPerl->Perl_gp_free
 +#undef  gp_free
 +#define gp_free                       Perl_gp_free
 +#undef  Perl_gp_ref
 +#define Perl_gp_ref           pPerl->Perl_gp_ref
 +#undef  gp_ref
 +#define gp_ref                        Perl_gp_ref
 +#undef  Perl_gv_AVadd
 +#define Perl_gv_AVadd         pPerl->Perl_gv_AVadd
 +#undef  gv_AVadd
 +#define gv_AVadd              Perl_gv_AVadd
 +#undef  Perl_gv_HVadd
 +#define Perl_gv_HVadd         pPerl->Perl_gv_HVadd
 +#undef  gv_HVadd
 +#define gv_HVadd              Perl_gv_HVadd
 +#undef  Perl_gv_IOadd
 +#define Perl_gv_IOadd         pPerl->Perl_gv_IOadd
 +#undef  gv_IOadd
 +#define gv_IOadd              Perl_gv_IOadd
 +#undef  Perl_gv_autoload4
 +#define Perl_gv_autoload4     pPerl->Perl_gv_autoload4
 +#undef  gv_autoload4
 +#define gv_autoload4          Perl_gv_autoload4
 +#undef  Perl_gv_check
 +#define Perl_gv_check         pPerl->Perl_gv_check
 +#undef  gv_check
 +#define gv_check              Perl_gv_check
 +#undef  Perl_gv_efullname
 +#define Perl_gv_efullname     pPerl->Perl_gv_efullname
 +#undef  gv_efullname
 +#define gv_efullname          Perl_gv_efullname
 +#undef  Perl_gv_efullname3
 +#define Perl_gv_efullname3    pPerl->Perl_gv_efullname3
 +#undef  gv_efullname3
 +#define gv_efullname3         Perl_gv_efullname3
 +#undef  Perl_gv_efullname4
 +#define Perl_gv_efullname4    pPerl->Perl_gv_efullname4
 +#undef  gv_efullname4
 +#define gv_efullname4         Perl_gv_efullname4
 +#undef  Perl_gv_fetchfile
 +#define Perl_gv_fetchfile     pPerl->Perl_gv_fetchfile
 +#undef  gv_fetchfile
 +#define gv_fetchfile          Perl_gv_fetchfile
 +#undef  Perl_gv_fetchmeth
 +#define Perl_gv_fetchmeth     pPerl->Perl_gv_fetchmeth
 +#undef  gv_fetchmeth
 +#define gv_fetchmeth          Perl_gv_fetchmeth
 +#undef  Perl_gv_fetchmethod
 +#define Perl_gv_fetchmethod   pPerl->Perl_gv_fetchmethod
 +#undef  gv_fetchmethod
 +#define gv_fetchmethod                Perl_gv_fetchmethod
 +#undef  Perl_gv_fetchmethod_autoload
 +#define Perl_gv_fetchmethod_autoload  pPerl->Perl_gv_fetchmethod_autoload
 +#undef  gv_fetchmethod_autoload
 +#define gv_fetchmethod_autoload       Perl_gv_fetchmethod_autoload
 +#undef  Perl_gv_fetchpv
 +#define Perl_gv_fetchpv               pPerl->Perl_gv_fetchpv
 +#undef  gv_fetchpv
 +#define gv_fetchpv            Perl_gv_fetchpv
 +#undef  Perl_gv_fullname
 +#define Perl_gv_fullname      pPerl->Perl_gv_fullname
 +#undef  gv_fullname
 +#define gv_fullname           Perl_gv_fullname
 +#undef  Perl_gv_fullname3
 +#define Perl_gv_fullname3     pPerl->Perl_gv_fullname3
 +#undef  gv_fullname3
 +#define gv_fullname3          Perl_gv_fullname3
 +#undef  Perl_gv_fullname4
 +#define Perl_gv_fullname4     pPerl->Perl_gv_fullname4
 +#undef  gv_fullname4
 +#define gv_fullname4          Perl_gv_fullname4
 +#undef  Perl_gv_init
 +#define Perl_gv_init          pPerl->Perl_gv_init
 +#undef  gv_init
 +#define gv_init                       Perl_gv_init
 +#undef  Perl_gv_stashpv
 +#define Perl_gv_stashpv               pPerl->Perl_gv_stashpv
 +#undef  gv_stashpv
 +#define gv_stashpv            Perl_gv_stashpv
 +#undef  Perl_gv_stashpvn
 +#define Perl_gv_stashpvn      pPerl->Perl_gv_stashpvn
 +#undef  gv_stashpvn
 +#define gv_stashpvn           Perl_gv_stashpvn
 +#undef  Perl_gv_stashsv
 +#define Perl_gv_stashsv               pPerl->Perl_gv_stashsv
 +#undef  gv_stashsv
 +#define gv_stashsv            Perl_gv_stashsv
 +#undef  Perl_hv_clear
 +#define Perl_hv_clear         pPerl->Perl_hv_clear
 +#undef  hv_clear
 +#define hv_clear              Perl_hv_clear
 +#undef  Perl_hv_delayfree_ent
 +#define Perl_hv_delayfree_ent pPerl->Perl_hv_delayfree_ent
 +#undef  hv_delayfree_ent
 +#define hv_delayfree_ent      Perl_hv_delayfree_ent
 +#undef  Perl_hv_delete
 +#define Perl_hv_delete                pPerl->Perl_hv_delete
 +#undef  hv_delete
 +#define hv_delete             Perl_hv_delete
 +#undef  Perl_hv_delete_ent
 +#define Perl_hv_delete_ent    pPerl->Perl_hv_delete_ent
 +#undef  hv_delete_ent
 +#define hv_delete_ent         Perl_hv_delete_ent
 +#undef  Perl_hv_exists
 +#define Perl_hv_exists                pPerl->Perl_hv_exists
 +#undef  hv_exists
 +#define hv_exists             Perl_hv_exists
 +#undef  Perl_hv_exists_ent
 +#define Perl_hv_exists_ent    pPerl->Perl_hv_exists_ent
 +#undef  hv_exists_ent
 +#define hv_exists_ent         Perl_hv_exists_ent
 +#undef  Perl_hv_fetch
 +#define Perl_hv_fetch         pPerl->Perl_hv_fetch
 +#undef  hv_fetch
 +#define hv_fetch              Perl_hv_fetch
 +#undef  Perl_hv_fetch_ent
 +#define Perl_hv_fetch_ent     pPerl->Perl_hv_fetch_ent
 +#undef  hv_fetch_ent
 +#define hv_fetch_ent          Perl_hv_fetch_ent
 +#undef  Perl_hv_free_ent
 +#define Perl_hv_free_ent      pPerl->Perl_hv_free_ent
 +#undef  hv_free_ent
 +#define hv_free_ent           Perl_hv_free_ent
 +#undef  Perl_hv_iterinit
 +#define Perl_hv_iterinit      pPerl->Perl_hv_iterinit
 +#undef  hv_iterinit
 +#define hv_iterinit           Perl_hv_iterinit
 +#undef  Perl_hv_iterkey
 +#define Perl_hv_iterkey               pPerl->Perl_hv_iterkey
 +#undef  hv_iterkey
 +#define hv_iterkey            Perl_hv_iterkey
 +#undef  Perl_hv_iterkeysv
 +#define Perl_hv_iterkeysv     pPerl->Perl_hv_iterkeysv
 +#undef  hv_iterkeysv
 +#define hv_iterkeysv          Perl_hv_iterkeysv
 +#undef  Perl_hv_iternext
 +#define Perl_hv_iternext      pPerl->Perl_hv_iternext
 +#undef  hv_iternext
 +#define hv_iternext           Perl_hv_iternext
 +#undef  Perl_hv_iternextsv
 +#define Perl_hv_iternextsv    pPerl->Perl_hv_iternextsv
 +#undef  hv_iternextsv
 +#define hv_iternextsv         Perl_hv_iternextsv
 +#undef  Perl_hv_iterval
 +#define Perl_hv_iterval               pPerl->Perl_hv_iterval
 +#undef  hv_iterval
 +#define hv_iterval            Perl_hv_iterval
 +#undef  Perl_hv_ksplit
 +#define Perl_hv_ksplit                pPerl->Perl_hv_ksplit
 +#undef  hv_ksplit
 +#define hv_ksplit             Perl_hv_ksplit
 +#undef  Perl_hv_magic
 +#define Perl_hv_magic         pPerl->Perl_hv_magic
 +#undef  hv_magic
 +#define hv_magic              Perl_hv_magic
 +#undef  Perl_hv_store
 +#define Perl_hv_store         pPerl->Perl_hv_store
 +#undef  hv_store
 +#define hv_store              Perl_hv_store
 +#undef  Perl_hv_store_ent
 +#define Perl_hv_store_ent     pPerl->Perl_hv_store_ent
 +#undef  hv_store_ent
 +#define hv_store_ent          Perl_hv_store_ent
 +#undef  Perl_hv_undef
 +#define Perl_hv_undef         pPerl->Perl_hv_undef
 +#undef  hv_undef
 +#define hv_undef              Perl_hv_undef
 +#undef  Perl_ibcmp
 +#define Perl_ibcmp            pPerl->Perl_ibcmp
 +#undef  ibcmp
 +#define ibcmp                 Perl_ibcmp
 +#undef  Perl_ibcmp_locale
 +#define Perl_ibcmp_locale     pPerl->Perl_ibcmp_locale
 +#undef  ibcmp_locale
 +#define ibcmp_locale          Perl_ibcmp_locale
 +#undef  Perl_init_stacks
 +#define Perl_init_stacks      pPerl->Perl_init_stacks
 +#undef  init_stacks
 +#define init_stacks           Perl_init_stacks
 +#undef  Perl_init_tm
 +#define Perl_init_tm          pPerl->Perl_init_tm
 +#undef  init_tm
 +#define init_tm                       Perl_init_tm
 +#undef  Perl_instr
 +#define Perl_instr            pPerl->Perl_instr
 +#undef  instr
 +#define instr                 Perl_instr
 +#undef  Perl_is_uni_alnum
 +#define Perl_is_uni_alnum     pPerl->Perl_is_uni_alnum
 +#undef  is_uni_alnum
 +#define is_uni_alnum          Perl_is_uni_alnum
 +#undef  Perl_is_uni_alnumc
 +#define Perl_is_uni_alnumc    pPerl->Perl_is_uni_alnumc
 +#undef  is_uni_alnumc
 +#define is_uni_alnumc         Perl_is_uni_alnumc
 +#undef  Perl_is_uni_idfirst
 +#define Perl_is_uni_idfirst   pPerl->Perl_is_uni_idfirst
 +#undef  is_uni_idfirst
 +#define is_uni_idfirst                Perl_is_uni_idfirst
 +#undef  Perl_is_uni_alpha
 +#define Perl_is_uni_alpha     pPerl->Perl_is_uni_alpha
 +#undef  is_uni_alpha
 +#define is_uni_alpha          Perl_is_uni_alpha
 +#undef  Perl_is_uni_ascii
 +#define Perl_is_uni_ascii     pPerl->Perl_is_uni_ascii
 +#undef  is_uni_ascii
 +#define is_uni_ascii          Perl_is_uni_ascii
 +#undef  Perl_is_uni_space
 +#define Perl_is_uni_space     pPerl->Perl_is_uni_space
 +#undef  is_uni_space
 +#define is_uni_space          Perl_is_uni_space
 +#undef  Perl_is_uni_cntrl
 +#define Perl_is_uni_cntrl     pPerl->Perl_is_uni_cntrl
 +#undef  is_uni_cntrl
 +#define is_uni_cntrl          Perl_is_uni_cntrl
 +#undef  Perl_is_uni_graph
 +#define Perl_is_uni_graph     pPerl->Perl_is_uni_graph
 +#undef  is_uni_graph
 +#define is_uni_graph          Perl_is_uni_graph
 +#undef  Perl_is_uni_digit
 +#define Perl_is_uni_digit     pPerl->Perl_is_uni_digit
 +#undef  is_uni_digit
 +#define is_uni_digit          Perl_is_uni_digit
 +#undef  Perl_is_uni_upper
 +#define Perl_is_uni_upper     pPerl->Perl_is_uni_upper
 +#undef  is_uni_upper
 +#define is_uni_upper          Perl_is_uni_upper
 +#undef  Perl_is_uni_lower
 +#define Perl_is_uni_lower     pPerl->Perl_is_uni_lower
 +#undef  is_uni_lower
 +#define is_uni_lower          Perl_is_uni_lower
 +#undef  Perl_is_uni_print
 +#define Perl_is_uni_print     pPerl->Perl_is_uni_print
 +#undef  is_uni_print
 +#define is_uni_print          Perl_is_uni_print
 +#undef  Perl_is_uni_punct
 +#define Perl_is_uni_punct     pPerl->Perl_is_uni_punct
 +#undef  is_uni_punct
 +#define is_uni_punct          Perl_is_uni_punct
 +#undef  Perl_is_uni_xdigit
 +#define Perl_is_uni_xdigit    pPerl->Perl_is_uni_xdigit
 +#undef  is_uni_xdigit
 +#define is_uni_xdigit         Perl_is_uni_xdigit
 +#undef  Perl_to_uni_upper
 +#define Perl_to_uni_upper     pPerl->Perl_to_uni_upper
 +#undef  to_uni_upper
 +#define to_uni_upper          Perl_to_uni_upper
 +#undef  Perl_to_uni_title
 +#define Perl_to_uni_title     pPerl->Perl_to_uni_title
 +#undef  to_uni_title
 +#define to_uni_title          Perl_to_uni_title
 +#undef  Perl_to_uni_lower
 +#define Perl_to_uni_lower     pPerl->Perl_to_uni_lower
 +#undef  to_uni_lower
 +#define to_uni_lower          Perl_to_uni_lower
 +#undef  Perl_is_uni_alnum_lc
 +#define Perl_is_uni_alnum_lc  pPerl->Perl_is_uni_alnum_lc
 +#undef  is_uni_alnum_lc
 +#define is_uni_alnum_lc               Perl_is_uni_alnum_lc
 +#undef  Perl_is_uni_alnumc_lc
 +#define Perl_is_uni_alnumc_lc pPerl->Perl_is_uni_alnumc_lc
 +#undef  is_uni_alnumc_lc
 +#define is_uni_alnumc_lc      Perl_is_uni_alnumc_lc
 +#undef  Perl_is_uni_idfirst_lc
 +#define Perl_is_uni_idfirst_lc        pPerl->Perl_is_uni_idfirst_lc
 +#undef  is_uni_idfirst_lc
 +#define is_uni_idfirst_lc     Perl_is_uni_idfirst_lc
 +#undef  Perl_is_uni_alpha_lc
 +#define Perl_is_uni_alpha_lc  pPerl->Perl_is_uni_alpha_lc
 +#undef  is_uni_alpha_lc
 +#define is_uni_alpha_lc               Perl_is_uni_alpha_lc
 +#undef  Perl_is_uni_ascii_lc
 +#define Perl_is_uni_ascii_lc  pPerl->Perl_is_uni_ascii_lc
 +#undef  is_uni_ascii_lc
 +#define is_uni_ascii_lc               Perl_is_uni_ascii_lc
 +#undef  Perl_is_uni_space_lc
 +#define Perl_is_uni_space_lc  pPerl->Perl_is_uni_space_lc
 +#undef  is_uni_space_lc
 +#define is_uni_space_lc               Perl_is_uni_space_lc
 +#undef  Perl_is_uni_cntrl_lc
 +#define Perl_is_uni_cntrl_lc  pPerl->Perl_is_uni_cntrl_lc
 +#undef  is_uni_cntrl_lc
 +#define is_uni_cntrl_lc               Perl_is_uni_cntrl_lc
 +#undef  Perl_is_uni_graph_lc
 +#define Perl_is_uni_graph_lc  pPerl->Perl_is_uni_graph_lc
 +#undef  is_uni_graph_lc
 +#define is_uni_graph_lc               Perl_is_uni_graph_lc
 +#undef  Perl_is_uni_digit_lc
 +#define Perl_is_uni_digit_lc  pPerl->Perl_is_uni_digit_lc
 +#undef  is_uni_digit_lc
 +#define is_uni_digit_lc               Perl_is_uni_digit_lc
 +#undef  Perl_is_uni_upper_lc
 +#define Perl_is_uni_upper_lc  pPerl->Perl_is_uni_upper_lc
 +#undef  is_uni_upper_lc
 +#define is_uni_upper_lc               Perl_is_uni_upper_lc
 +#undef  Perl_is_uni_lower_lc
 +#define Perl_is_uni_lower_lc  pPerl->Perl_is_uni_lower_lc
 +#undef  is_uni_lower_lc
 +#define is_uni_lower_lc               Perl_is_uni_lower_lc
 +#undef  Perl_is_uni_print_lc
 +#define Perl_is_uni_print_lc  pPerl->Perl_is_uni_print_lc
 +#undef  is_uni_print_lc
 +#define is_uni_print_lc               Perl_is_uni_print_lc
 +#undef  Perl_is_uni_punct_lc
 +#define Perl_is_uni_punct_lc  pPerl->Perl_is_uni_punct_lc
 +#undef  is_uni_punct_lc
 +#define is_uni_punct_lc               Perl_is_uni_punct_lc
 +#undef  Perl_is_uni_xdigit_lc
 +#define Perl_is_uni_xdigit_lc pPerl->Perl_is_uni_xdigit_lc
 +#undef  is_uni_xdigit_lc
 +#define is_uni_xdigit_lc      Perl_is_uni_xdigit_lc
 +#undef  Perl_to_uni_upper_lc
 +#define Perl_to_uni_upper_lc  pPerl->Perl_to_uni_upper_lc
 +#undef  to_uni_upper_lc
 +#define to_uni_upper_lc               Perl_to_uni_upper_lc
 +#undef  Perl_to_uni_title_lc
 +#define Perl_to_uni_title_lc  pPerl->Perl_to_uni_title_lc
 +#undef  to_uni_title_lc
 +#define to_uni_title_lc               Perl_to_uni_title_lc
 +#undef  Perl_to_uni_lower_lc
 +#define Perl_to_uni_lower_lc  pPerl->Perl_to_uni_lower_lc
 +#undef  to_uni_lower_lc
 +#define to_uni_lower_lc               Perl_to_uni_lower_lc
 +#undef  Perl_is_utf8_char
 +#define Perl_is_utf8_char     pPerl->Perl_is_utf8_char
 +#undef  is_utf8_char
 +#define is_utf8_char          Perl_is_utf8_char
 +#undef  Perl_is_utf8_string
 +#define Perl_is_utf8_string   pPerl->Perl_is_utf8_string
 +#undef  is_utf8_string
 +#define is_utf8_string                Perl_is_utf8_string
 +#undef  Perl_is_utf8_alnum
 +#define Perl_is_utf8_alnum    pPerl->Perl_is_utf8_alnum
 +#undef  is_utf8_alnum
 +#define is_utf8_alnum         Perl_is_utf8_alnum
 +#undef  Perl_is_utf8_alnumc
 +#define Perl_is_utf8_alnumc   pPerl->Perl_is_utf8_alnumc
 +#undef  is_utf8_alnumc
 +#define is_utf8_alnumc                Perl_is_utf8_alnumc
 +#undef  Perl_is_utf8_idfirst
 +#define Perl_is_utf8_idfirst  pPerl->Perl_is_utf8_idfirst
 +#undef  is_utf8_idfirst
 +#define is_utf8_idfirst               Perl_is_utf8_idfirst
 +#undef  Perl_is_utf8_alpha
 +#define Perl_is_utf8_alpha    pPerl->Perl_is_utf8_alpha
 +#undef  is_utf8_alpha
 +#define is_utf8_alpha         Perl_is_utf8_alpha
 +#undef  Perl_is_utf8_ascii
 +#define Perl_is_utf8_ascii    pPerl->Perl_is_utf8_ascii
 +#undef  is_utf8_ascii
 +#define is_utf8_ascii         Perl_is_utf8_ascii
 +#undef  Perl_is_utf8_space
 +#define Perl_is_utf8_space    pPerl->Perl_is_utf8_space
 +#undef  is_utf8_space
 +#define is_utf8_space         Perl_is_utf8_space
 +#undef  Perl_is_utf8_cntrl
 +#define Perl_is_utf8_cntrl    pPerl->Perl_is_utf8_cntrl
 +#undef  is_utf8_cntrl
 +#define is_utf8_cntrl         Perl_is_utf8_cntrl
 +#undef  Perl_is_utf8_digit
 +#define Perl_is_utf8_digit    pPerl->Perl_is_utf8_digit
 +#undef  is_utf8_digit
 +#define is_utf8_digit         Perl_is_utf8_digit
 +#undef  Perl_is_utf8_graph
 +#define Perl_is_utf8_graph    pPerl->Perl_is_utf8_graph
 +#undef  is_utf8_graph
 +#define is_utf8_graph         Perl_is_utf8_graph
 +#undef  Perl_is_utf8_upper
 +#define Perl_is_utf8_upper    pPerl->Perl_is_utf8_upper
 +#undef  is_utf8_upper
 +#define is_utf8_upper         Perl_is_utf8_upper
 +#undef  Perl_is_utf8_lower
 +#define Perl_is_utf8_lower    pPerl->Perl_is_utf8_lower
 +#undef  is_utf8_lower
 +#define is_utf8_lower         Perl_is_utf8_lower
 +#undef  Perl_is_utf8_print
 +#define Perl_is_utf8_print    pPerl->Perl_is_utf8_print
 +#undef  is_utf8_print
 +#define is_utf8_print         Perl_is_utf8_print
 +#undef  Perl_is_utf8_punct
 +#define Perl_is_utf8_punct    pPerl->Perl_is_utf8_punct
 +#undef  is_utf8_punct
 +#define is_utf8_punct         Perl_is_utf8_punct
 +#undef  Perl_is_utf8_xdigit
 +#define Perl_is_utf8_xdigit   pPerl->Perl_is_utf8_xdigit
 +#undef  is_utf8_xdigit
 +#define is_utf8_xdigit                Perl_is_utf8_xdigit
 +#undef  Perl_is_utf8_mark
 +#define Perl_is_utf8_mark     pPerl->Perl_is_utf8_mark
 +#undef  is_utf8_mark
 +#define is_utf8_mark          Perl_is_utf8_mark
 +#undef  Perl_leave_scope
 +#define Perl_leave_scope      pPerl->Perl_leave_scope
 +#undef  leave_scope
 +#define leave_scope           Perl_leave_scope
 +#undef  Perl_op_null
 +#define Perl_op_null          pPerl->Perl_op_null
 +#undef  op_null
 +#define op_null                       Perl_op_null
 +#undef  Perl_load_module
 +#define Perl_load_module      pPerl->Perl_load_module
 +#undef  load_module
 +#define load_module           Perl_load_module
 +#undef  Perl_vload_module
 +#define Perl_vload_module     pPerl->Perl_vload_module
 +#undef  vload_module
 +#define vload_module          Perl_vload_module
 +#undef  Perl_looks_like_number
 +#define Perl_looks_like_number        pPerl->Perl_looks_like_number
 +#undef  looks_like_number
 +#define looks_like_number     Perl_looks_like_number
 +#undef  Perl_grok_number
 +#define Perl_grok_number      pPerl->Perl_grok_number
 +#undef  grok_number
 +#define grok_number           Perl_grok_number
 +#undef  Perl_grok_numeric_radix
 +#define Perl_grok_numeric_radix       pPerl->Perl_grok_numeric_radix
 +#undef  grok_numeric_radix
 +#define grok_numeric_radix    Perl_grok_numeric_radix
- #if defined(USE_THREADS)
++#if defined(USE_5005THREADS)
 +#endif
 +#if defined(USE_LOCALE_COLLATE)
 +#endif
 +#undef  Perl_markstack_grow
 +#define Perl_markstack_grow   pPerl->Perl_markstack_grow
 +#undef  markstack_grow
 +#define markstack_grow                Perl_markstack_grow
 +#if defined(USE_LOCALE_COLLATE)
 +#endif
 +#undef  Perl_mess
 +#define Perl_mess             pPerl->Perl_mess
 +#undef  mess
 +#define mess                  Perl_mess
 +#undef  Perl_vmess
 +#define Perl_vmess            pPerl->Perl_vmess
 +#undef  vmess
 +#define vmess                 Perl_vmess
 +#undef  Perl_mg_clear
 +#define Perl_mg_clear         pPerl->Perl_mg_clear
 +#undef  mg_clear
 +#define mg_clear              Perl_mg_clear
 +#undef  Perl_mg_copy
 +#define Perl_mg_copy          pPerl->Perl_mg_copy
 +#undef  mg_copy
 +#define mg_copy                       Perl_mg_copy
 +#undef  Perl_mg_find
 +#define Perl_mg_find          pPerl->Perl_mg_find
 +#undef  mg_find
 +#define mg_find                       Perl_mg_find
 +#undef  Perl_mg_free
 +#define Perl_mg_free          pPerl->Perl_mg_free
 +#undef  mg_free
 +#define mg_free                       Perl_mg_free
 +#undef  Perl_mg_get
 +#define Perl_mg_get           pPerl->Perl_mg_get
 +#undef  mg_get
 +#define mg_get                        Perl_mg_get
 +#undef  Perl_mg_length
 +#define Perl_mg_length                pPerl->Perl_mg_length
 +#undef  mg_length
 +#define mg_length             Perl_mg_length
 +#undef  Perl_mg_magical
 +#define Perl_mg_magical               pPerl->Perl_mg_magical
 +#undef  mg_magical
 +#define mg_magical            Perl_mg_magical
 +#undef  Perl_mg_set
 +#define Perl_mg_set           pPerl->Perl_mg_set
 +#undef  mg_set
 +#define mg_set                        Perl_mg_set
 +#undef  Perl_mg_size
 +#define Perl_mg_size          pPerl->Perl_mg_size
 +#undef  mg_size
 +#define mg_size                       Perl_mg_size
 +#undef  Perl_mini_mktime
 +#define Perl_mini_mktime      pPerl->Perl_mini_mktime
 +#undef  mini_mktime
 +#define mini_mktime           Perl_mini_mktime
 +#undef  Perl_moreswitches
 +#define Perl_moreswitches     pPerl->Perl_moreswitches
 +#undef  moreswitches
 +#define moreswitches          Perl_moreswitches
 +#undef  Perl_my_atof
 +#define Perl_my_atof          pPerl->Perl_my_atof
 +#undef  my_atof
 +#define my_atof                       Perl_my_atof
 +#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
 +#undef  Perl_my_bcopy
 +#define Perl_my_bcopy         pPerl->Perl_my_bcopy
 +#undef  my_bcopy
 +#define my_bcopy              Perl_my_bcopy
 +#endif
 +#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
 +#undef  Perl_my_bzero
 +#define Perl_my_bzero         pPerl->Perl_my_bzero
 +#undef  my_bzero
 +#define my_bzero              Perl_my_bzero
 +#endif
 +#undef  Perl_my_exit
 +#define Perl_my_exit          pPerl->Perl_my_exit
 +#undef  my_exit
 +#define my_exit                       Perl_my_exit
 +#undef  Perl_my_failure_exit
 +#define Perl_my_failure_exit  pPerl->Perl_my_failure_exit
 +#undef  my_failure_exit
 +#define my_failure_exit               Perl_my_failure_exit
 +#undef  Perl_my_fflush_all
 +#define Perl_my_fflush_all    pPerl->Perl_my_fflush_all
 +#undef  my_fflush_all
 +#define my_fflush_all         Perl_my_fflush_all
 +#undef  Perl_my_fork
 +#define Perl_my_fork          pPerl->Perl_my_fork
 +#undef  my_fork
 +#define my_fork                       Perl_my_fork
 +#undef  Perl_atfork_lock
 +#define Perl_atfork_lock      pPerl->Perl_atfork_lock
 +#undef  atfork_lock
 +#define atfork_lock           Perl_atfork_lock
 +#undef  Perl_atfork_unlock
 +#define Perl_atfork_unlock    pPerl->Perl_atfork_unlock
 +#undef  atfork_unlock
 +#define atfork_unlock         Perl_atfork_unlock
 +#undef  Perl_my_lstat
 +#define Perl_my_lstat         pPerl->Perl_my_lstat
 +#undef  my_lstat
 +#define my_lstat              Perl_my_lstat
 +#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
 +#undef  Perl_my_memcmp
 +#define Perl_my_memcmp                pPerl->Perl_my_memcmp
 +#undef  my_memcmp
 +#define my_memcmp             Perl_my_memcmp
 +#endif
 +#if !defined(HAS_MEMSET)
 +#undef  Perl_my_memset
 +#define Perl_my_memset                pPerl->Perl_my_memset
 +#undef  my_memset
 +#define my_memset             Perl_my_memset
 +#endif
 +#if !defined(PERL_OBJECT)
 +#undef  Perl_my_pclose
 +#define Perl_my_pclose                pPerl->Perl_my_pclose
 +#undef  my_pclose
 +#define my_pclose             Perl_my_pclose
 +#undef  Perl_my_popen
 +#define Perl_my_popen         pPerl->Perl_my_popen
 +#undef  my_popen
 +#define my_popen              Perl_my_popen
 +#undef  Perl_my_popen_list
 +#define Perl_my_popen_list    pPerl->Perl_my_popen_list
 +#undef  my_popen_list
 +#define my_popen_list         Perl_my_popen_list
 +#endif
 +#undef  Perl_my_setenv
 +#define Perl_my_setenv                pPerl->Perl_my_setenv
 +#undef  my_setenv
 +#define my_setenv             Perl_my_setenv
 +#undef  Perl_my_stat
 +#define Perl_my_stat          pPerl->Perl_my_stat
 +#undef  my_stat
 +#define my_stat                       Perl_my_stat
 +#undef  Perl_my_strftime
 +#define Perl_my_strftime      pPerl->Perl_my_strftime
 +#undef  my_strftime
 +#define my_strftime           Perl_my_strftime
 +#if defined(MYSWAP)
 +#undef  Perl_my_swap
 +#define Perl_my_swap          pPerl->Perl_my_swap
 +#undef  my_swap
 +#define my_swap                       Perl_my_swap
 +#undef  Perl_my_htonl
 +#define Perl_my_htonl         pPerl->Perl_my_htonl
 +#undef  my_htonl
 +#define my_htonl              Perl_my_htonl
 +#undef  Perl_my_ntohl
 +#define Perl_my_ntohl         pPerl->Perl_my_ntohl
 +#undef  my_ntohl
 +#define my_ntohl              Perl_my_ntohl
 +#endif
 +#undef  Perl_newANONLIST
 +#define Perl_newANONLIST      pPerl->Perl_newANONLIST
 +#undef  newANONLIST
 +#define newANONLIST           Perl_newANONLIST
 +#undef  Perl_newANONHASH
 +#define Perl_newANONHASH      pPerl->Perl_newANONHASH
 +#undef  newANONHASH
 +#define newANONHASH           Perl_newANONHASH
 +#undef  Perl_newANONSUB
 +#define Perl_newANONSUB               pPerl->Perl_newANONSUB
 +#undef  newANONSUB
 +#define newANONSUB            Perl_newANONSUB
 +#undef  Perl_newASSIGNOP
 +#define Perl_newASSIGNOP      pPerl->Perl_newASSIGNOP
 +#undef  newASSIGNOP
 +#define newASSIGNOP           Perl_newASSIGNOP
 +#undef  Perl_newCONDOP
 +#define Perl_newCONDOP                pPerl->Perl_newCONDOP
 +#undef  newCONDOP
 +#define newCONDOP             Perl_newCONDOP
 +#undef  Perl_newCONSTSUB
 +#define Perl_newCONSTSUB      pPerl->Perl_newCONSTSUB
 +#undef  newCONSTSUB
 +#define newCONSTSUB           Perl_newCONSTSUB
 +#undef  Perl_newFORM
 +#define Perl_newFORM          pPerl->Perl_newFORM
 +#undef  newFORM
 +#define newFORM                       Perl_newFORM
 +#undef  Perl_newFOROP
 +#define Perl_newFOROP         pPerl->Perl_newFOROP
 +#undef  newFOROP
 +#define newFOROP              Perl_newFOROP
 +#undef  Perl_newLOGOP
 +#define Perl_newLOGOP         pPerl->Perl_newLOGOP
 +#undef  newLOGOP
 +#define newLOGOP              Perl_newLOGOP
 +#undef  Perl_newLOOPEX
 +#define Perl_newLOOPEX                pPerl->Perl_newLOOPEX
 +#undef  newLOOPEX
 +#define newLOOPEX             Perl_newLOOPEX
 +#undef  Perl_newLOOPOP
 +#define Perl_newLOOPOP                pPerl->Perl_newLOOPOP
 +#undef  newLOOPOP
 +#define newLOOPOP             Perl_newLOOPOP
 +#undef  Perl_newNULLLIST
 +#define Perl_newNULLLIST      pPerl->Perl_newNULLLIST
 +#undef  newNULLLIST
 +#define newNULLLIST           Perl_newNULLLIST
 +#undef  Perl_newOP
 +#define Perl_newOP            pPerl->Perl_newOP
 +#undef  newOP
 +#define newOP                 Perl_newOP
 +#undef  Perl_newPROG
 +#define Perl_newPROG          pPerl->Perl_newPROG
 +#undef  newPROG
 +#define newPROG                       Perl_newPROG
 +#undef  Perl_newRANGE
 +#define Perl_newRANGE         pPerl->Perl_newRANGE
 +#undef  newRANGE
 +#define newRANGE              Perl_newRANGE
 +#undef  Perl_newSLICEOP
 +#define Perl_newSLICEOP               pPerl->Perl_newSLICEOP
 +#undef  newSLICEOP
 +#define newSLICEOP            Perl_newSLICEOP
 +#undef  Perl_newSTATEOP
 +#define Perl_newSTATEOP               pPerl->Perl_newSTATEOP
 +#undef  newSTATEOP
 +#define newSTATEOP            Perl_newSTATEOP
 +#undef  Perl_newSUB
 +#define Perl_newSUB           pPerl->Perl_newSUB
 +#undef  newSUB
 +#define newSUB                        Perl_newSUB
 +#undef  Perl_newXS
 +#define Perl_newXS            pPerl->Perl_newXS
 +#undef  newXS
 +#define newXS                 Perl_newXS
 +#undef  Perl_newAV
 +#define Perl_newAV            pPerl->Perl_newAV
 +#undef  newAV
 +#define newAV                 Perl_newAV
 +#undef  Perl_newAVREF
 +#define Perl_newAVREF         pPerl->Perl_newAVREF
 +#undef  newAVREF
 +#define newAVREF              Perl_newAVREF
 +#undef  Perl_newBINOP
 +#define Perl_newBINOP         pPerl->Perl_newBINOP
 +#undef  newBINOP
 +#define newBINOP              Perl_newBINOP
 +#undef  Perl_newCVREF
 +#define Perl_newCVREF         pPerl->Perl_newCVREF
 +#undef  newCVREF
 +#define newCVREF              Perl_newCVREF
 +#undef  Perl_newGVOP
 +#define Perl_newGVOP          pPerl->Perl_newGVOP
 +#undef  newGVOP
 +#define newGVOP                       Perl_newGVOP
 +#undef  Perl_newGVgen
 +#define Perl_newGVgen         pPerl->Perl_newGVgen
 +#undef  newGVgen
 +#define newGVgen              Perl_newGVgen
 +#undef  Perl_newGVREF
 +#define Perl_newGVREF         pPerl->Perl_newGVREF
 +#undef  newGVREF
 +#define newGVREF              Perl_newGVREF
 +#undef  Perl_newHVREF
 +#define Perl_newHVREF         pPerl->Perl_newHVREF
 +#undef  newHVREF
 +#define newHVREF              Perl_newHVREF
 +#undef  Perl_newHV
 +#define Perl_newHV            pPerl->Perl_newHV
 +#undef  newHV
 +#define newHV                 Perl_newHV
 +#undef  Perl_newHVhv
 +#define Perl_newHVhv          pPerl->Perl_newHVhv
 +#undef  newHVhv
 +#define newHVhv                       Perl_newHVhv
 +#undef  Perl_newIO
 +#define Perl_newIO            pPerl->Perl_newIO
 +#undef  newIO
 +#define newIO                 Perl_newIO
 +#undef  Perl_newLISTOP
 +#define Perl_newLISTOP                pPerl->Perl_newLISTOP
 +#undef  newLISTOP
 +#define newLISTOP             Perl_newLISTOP
 +#undef  Perl_newPADOP
 +#define Perl_newPADOP         pPerl->Perl_newPADOP
 +#undef  newPADOP
 +#define newPADOP              Perl_newPADOP
 +#undef  Perl_newPMOP
 +#define Perl_newPMOP          pPerl->Perl_newPMOP
 +#undef  newPMOP
 +#define newPMOP                       Perl_newPMOP
 +#undef  Perl_newPVOP
 +#define Perl_newPVOP          pPerl->Perl_newPVOP
 +#undef  newPVOP
 +#define newPVOP                       Perl_newPVOP
 +#undef  Perl_newRV
 +#define Perl_newRV            pPerl->Perl_newRV
 +#undef  newRV
 +#define newRV                 Perl_newRV
 +#undef  Perl_newRV_noinc
 +#define Perl_newRV_noinc      pPerl->Perl_newRV_noinc
 +#undef  newRV_noinc
 +#define newRV_noinc           Perl_newRV_noinc
 +#undef  Perl_newSV
 +#define Perl_newSV            pPerl->Perl_newSV
 +#undef  newSV
 +#define newSV                 Perl_newSV
 +#undef  Perl_newSVREF
 +#define Perl_newSVREF         pPerl->Perl_newSVREF
 +#undef  newSVREF
 +#define newSVREF              Perl_newSVREF
 +#undef  Perl_newSVOP
 +#define Perl_newSVOP          pPerl->Perl_newSVOP
 +#undef  newSVOP
 +#define newSVOP                       Perl_newSVOP
 +#undef  Perl_newSViv
 +#define Perl_newSViv          pPerl->Perl_newSViv
 +#undef  newSViv
 +#define newSViv                       Perl_newSViv
 +#undef  Perl_newSVuv
 +#define Perl_newSVuv          pPerl->Perl_newSVuv
 +#undef  newSVuv
 +#define newSVuv                       Perl_newSVuv
 +#undef  Perl_newSVnv
 +#define Perl_newSVnv          pPerl->Perl_newSVnv
 +#undef  newSVnv
 +#define newSVnv                       Perl_newSVnv
 +#undef  Perl_newSVpv
 +#define Perl_newSVpv          pPerl->Perl_newSVpv
 +#undef  newSVpv
 +#define newSVpv                       Perl_newSVpv
 +#undef  Perl_newSVpvn
 +#define Perl_newSVpvn         pPerl->Perl_newSVpvn
 +#undef  newSVpvn
 +#define newSVpvn              Perl_newSVpvn
 +#undef  Perl_newSVpvn_share
 +#define Perl_newSVpvn_share   pPerl->Perl_newSVpvn_share
 +#undef  newSVpvn_share
 +#define newSVpvn_share                Perl_newSVpvn_share
 +#undef  Perl_newSVpvf
 +#define Perl_newSVpvf         pPerl->Perl_newSVpvf
 +#undef  newSVpvf
 +#define newSVpvf              Perl_newSVpvf
 +#undef  Perl_vnewSVpvf
 +#define Perl_vnewSVpvf                pPerl->Perl_vnewSVpvf
 +#undef  vnewSVpvf
 +#define vnewSVpvf             Perl_vnewSVpvf
 +#undef  Perl_newSVrv
 +#define Perl_newSVrv          pPerl->Perl_newSVrv
 +#undef  newSVrv
 +#define newSVrv                       Perl_newSVrv
 +#undef  Perl_newSVsv
 +#define Perl_newSVsv          pPerl->Perl_newSVsv
 +#undef  newSVsv
 +#define newSVsv                       Perl_newSVsv
 +#undef  Perl_newUNOP
 +#define Perl_newUNOP          pPerl->Perl_newUNOP
 +#undef  newUNOP
 +#define newUNOP                       Perl_newUNOP
 +#undef  Perl_newWHILEOP
 +#define Perl_newWHILEOP               pPerl->Perl_newWHILEOP
 +#undef  newWHILEOP
 +#define newWHILEOP            Perl_newWHILEOP
 +#undef  Perl_new_stackinfo
 +#define Perl_new_stackinfo    pPerl->Perl_new_stackinfo
 +#undef  new_stackinfo
 +#define new_stackinfo         Perl_new_stackinfo
 +#undef  Perl_ninstr
 +#define Perl_ninstr           pPerl->Perl_ninstr
 +#undef  ninstr
 +#define ninstr                        Perl_ninstr
 +#undef  Perl_op_free
 +#define Perl_op_free          pPerl->Perl_op_free
 +#undef  op_free
 +#define op_free                       Perl_op_free
 +#undef  Perl_pad_sv
 +#define Perl_pad_sv           pPerl->Perl_pad_sv
 +#undef  pad_sv
 +#define pad_sv                        Perl_pad_sv
 +#if defined(PERL_OBJECT)
 +#undef  Perl_construct
 +#define Perl_construct                pPerl->Perl_construct
 +#undef  Perl_destruct
 +#define Perl_destruct         pPerl->Perl_destruct
 +#undef  Perl_free
 +#define Perl_free             pPerl->Perl_free
 +#undef  Perl_run
 +#define Perl_run              pPerl->Perl_run
 +#undef  Perl_parse
 +#define Perl_parse            pPerl->Perl_parse
 +#endif
- #if defined(USE_THREADS)
++#if defined(USE_5005THREADS)
 +#undef  Perl_new_struct_thread
 +#define Perl_new_struct_thread        pPerl->Perl_new_struct_thread
 +#undef  new_struct_thread
 +#define new_struct_thread     Perl_new_struct_thread
 +#endif
 +#undef  Perl_call_atexit
 +#define Perl_call_atexit      pPerl->Perl_call_atexit
 +#undef  call_atexit
 +#define call_atexit           Perl_call_atexit
 +#undef  Perl_call_argv
 +#define Perl_call_argv                pPerl->Perl_call_argv
 +#undef  call_argv
 +#define call_argv             Perl_call_argv
 +#undef  Perl_call_method
 +#define Perl_call_method      pPerl->Perl_call_method
 +#undef  call_method
 +#define call_method           Perl_call_method
 +#undef  Perl_call_pv
 +#define Perl_call_pv          pPerl->Perl_call_pv
 +#undef  call_pv
 +#define call_pv                       Perl_call_pv
 +#undef  Perl_call_sv
 +#define Perl_call_sv          pPerl->Perl_call_sv
 +#undef  call_sv
 +#define call_sv                       Perl_call_sv
 +#undef  Perl_eval_pv
 +#define Perl_eval_pv          pPerl->Perl_eval_pv
 +#undef  eval_pv
 +#define eval_pv                       Perl_eval_pv
 +#undef  Perl_eval_sv
 +#define Perl_eval_sv          pPerl->Perl_eval_sv
 +#undef  eval_sv
 +#define eval_sv                       Perl_eval_sv
 +#undef  Perl_get_sv
 +#define Perl_get_sv           pPerl->Perl_get_sv
 +#undef  get_sv
 +#define get_sv                        Perl_get_sv
 +#undef  Perl_get_av
 +#define Perl_get_av           pPerl->Perl_get_av
 +#undef  get_av
 +#define get_av                        Perl_get_av
 +#undef  Perl_get_hv
 +#define Perl_get_hv           pPerl->Perl_get_hv
 +#undef  get_hv
 +#define get_hv                        Perl_get_hv
 +#undef  Perl_get_cv
 +#define Perl_get_cv           pPerl->Perl_get_cv
 +#undef  get_cv
 +#define get_cv                        Perl_get_cv
 +#undef  Perl_init_i18nl10n
 +#define Perl_init_i18nl10n    pPerl->Perl_init_i18nl10n
 +#undef  init_i18nl10n
 +#define init_i18nl10n         Perl_init_i18nl10n
 +#undef  Perl_init_i18nl14n
 +#define Perl_init_i18nl14n    pPerl->Perl_init_i18nl14n
 +#undef  init_i18nl14n
 +#define init_i18nl14n         Perl_init_i18nl14n
 +#undef  Perl_new_collate
 +#define Perl_new_collate      pPerl->Perl_new_collate
 +#undef  new_collate
 +#define new_collate           Perl_new_collate
 +#undef  Perl_new_ctype
 +#define Perl_new_ctype                pPerl->Perl_new_ctype
 +#undef  new_ctype
 +#define new_ctype             Perl_new_ctype
 +#undef  Perl_new_numeric
 +#define Perl_new_numeric      pPerl->Perl_new_numeric
 +#undef  new_numeric
 +#define new_numeric           Perl_new_numeric
 +#undef  Perl_set_numeric_local
 +#define Perl_set_numeric_local        pPerl->Perl_set_numeric_local
 +#undef  set_numeric_local
 +#define set_numeric_local     Perl_set_numeric_local
 +#undef  Perl_set_numeric_radix
 +#define Perl_set_numeric_radix        pPerl->Perl_set_numeric_radix
 +#undef  set_numeric_radix
 +#define set_numeric_radix     Perl_set_numeric_radix
 +#undef  Perl_set_numeric_standard
 +#define Perl_set_numeric_standard     pPerl->Perl_set_numeric_standard
 +#undef  set_numeric_standard
 +#define set_numeric_standard  Perl_set_numeric_standard
 +#undef  Perl_require_pv
 +#define Perl_require_pv               pPerl->Perl_require_pv
 +#undef  require_pv
 +#define require_pv            Perl_require_pv
 +#undef  Perl_pmflag
 +#define Perl_pmflag           pPerl->Perl_pmflag
 +#undef  pmflag
 +#define pmflag                        Perl_pmflag
 +#undef  Perl_pop_scope
 +#define Perl_pop_scope                pPerl->Perl_pop_scope
 +#undef  pop_scope
 +#define pop_scope             Perl_pop_scope
 +#undef  Perl_push_scope
 +#define Perl_push_scope               pPerl->Perl_push_scope
 +#undef  push_scope
 +#define push_scope            Perl_push_scope
 +#undef  Perl_regdump
 +#define Perl_regdump          pPerl->Perl_regdump
 +#undef  regdump
 +#define regdump                       Perl_regdump
 +#undef  Perl_regclass_swash
 +#define Perl_regclass_swash   pPerl->Perl_regclass_swash
 +#undef  regclass_swash
 +#define regclass_swash                Perl_regclass_swash
 +#undef  Perl_pregexec
 +#define Perl_pregexec         pPerl->Perl_pregexec
 +#undef  pregexec
 +#define pregexec              Perl_pregexec
 +#undef  Perl_pregfree
 +#define Perl_pregfree         pPerl->Perl_pregfree
 +#undef  pregfree
 +#define pregfree              Perl_pregfree
 +#undef  Perl_pregcomp
 +#define Perl_pregcomp         pPerl->Perl_pregcomp
 +#undef  pregcomp
 +#define pregcomp              Perl_pregcomp
 +#undef  Perl_re_intuit_start
 +#define Perl_re_intuit_start  pPerl->Perl_re_intuit_start
 +#undef  re_intuit_start
 +#define re_intuit_start               Perl_re_intuit_start
 +#undef  Perl_re_intuit_string
 +#define Perl_re_intuit_string pPerl->Perl_re_intuit_string
 +#undef  re_intuit_string
 +#define re_intuit_string      Perl_re_intuit_string
 +#undef  Perl_regexec_flags
 +#define Perl_regexec_flags    pPerl->Perl_regexec_flags
 +#undef  regexec_flags
 +#define regexec_flags         Perl_regexec_flags
 +#undef  Perl_regnext
 +#define Perl_regnext          pPerl->Perl_regnext
 +#undef  regnext
 +#define regnext                       Perl_regnext
 +#undef  Perl_repeatcpy
 +#define Perl_repeatcpy                pPerl->Perl_repeatcpy
 +#undef  repeatcpy
 +#define repeatcpy             Perl_repeatcpy
 +#undef  Perl_rninstr
 +#define Perl_rninstr          pPerl->Perl_rninstr
 +#undef  rninstr
 +#define rninstr                       Perl_rninstr
 +#undef  Perl_rsignal
 +#define Perl_rsignal          pPerl->Perl_rsignal
 +#undef  rsignal
 +#define rsignal                       Perl_rsignal
 +#undef  Perl_rsignal_state
 +#define Perl_rsignal_state    pPerl->Perl_rsignal_state
 +#undef  rsignal_state
 +#define rsignal_state         Perl_rsignal_state
 +#if !defined(HAS_RENAME)
 +#endif
 +#undef  Perl_savepv
 +#define Perl_savepv           pPerl->Perl_savepv
 +#undef  savepv
 +#define savepv                        Perl_savepv
 +#undef  Perl_savepvn
 +#define Perl_savepvn          pPerl->Perl_savepvn
 +#undef  savepvn
 +#define savepvn                       Perl_savepvn
 +#undef  Perl_savestack_grow
 +#define Perl_savestack_grow   pPerl->Perl_savestack_grow
 +#undef  savestack_grow
 +#define savestack_grow                Perl_savestack_grow
 +#undef  Perl_save_aelem
 +#define Perl_save_aelem               pPerl->Perl_save_aelem
 +#undef  save_aelem
 +#define save_aelem            Perl_save_aelem
 +#undef  Perl_save_alloc
 +#define Perl_save_alloc               pPerl->Perl_save_alloc
 +#undef  save_alloc
 +#define save_alloc            Perl_save_alloc
 +#undef  Perl_save_aptr
 +#define Perl_save_aptr                pPerl->Perl_save_aptr
 +#undef  save_aptr
 +#define save_aptr             Perl_save_aptr
 +#undef  Perl_save_ary
 +#define Perl_save_ary         pPerl->Perl_save_ary
 +#undef  save_ary
 +#define save_ary              Perl_save_ary
 +#undef  Perl_save_clearsv
 +#define Perl_save_clearsv     pPerl->Perl_save_clearsv
 +#undef  save_clearsv
 +#define save_clearsv          Perl_save_clearsv
 +#undef  Perl_save_delete
 +#define Perl_save_delete      pPerl->Perl_save_delete
 +#undef  save_delete
 +#define save_delete           Perl_save_delete
 +#undef  Perl_save_destructor
 +#define Perl_save_destructor  pPerl->Perl_save_destructor
 +#undef  save_destructor
 +#define save_destructor               Perl_save_destructor
 +#undef  Perl_save_destructor_x
 +#define Perl_save_destructor_x        pPerl->Perl_save_destructor_x
 +#undef  save_destructor_x
 +#define save_destructor_x     Perl_save_destructor_x
 +#undef  Perl_save_freesv
 +#define Perl_save_freesv      pPerl->Perl_save_freesv
 +#undef  save_freesv
 +#define save_freesv           Perl_save_freesv
 +#undef  Perl_save_freepv
 +#define Perl_save_freepv      pPerl->Perl_save_freepv
 +#undef  save_freepv
 +#define save_freepv           Perl_save_freepv
 +#undef  Perl_save_generic_svref
 +#define Perl_save_generic_svref       pPerl->Perl_save_generic_svref
 +#undef  save_generic_svref
 +#define save_generic_svref    Perl_save_generic_svref
 +#undef  Perl_save_generic_pvref
 +#define Perl_save_generic_pvref       pPerl->Perl_save_generic_pvref
 +#undef  save_generic_pvref
 +#define save_generic_pvref    Perl_save_generic_pvref
 +#undef  Perl_save_gp
 +#define Perl_save_gp          pPerl->Perl_save_gp
 +#undef  save_gp
 +#define save_gp                       Perl_save_gp
 +#undef  Perl_save_hash
 +#define Perl_save_hash                pPerl->Perl_save_hash
 +#undef  save_hash
 +#define save_hash             Perl_save_hash
 +#undef  Perl_save_helem
 +#define Perl_save_helem               pPerl->Perl_save_helem
 +#undef  save_helem
 +#define save_helem            Perl_save_helem
 +#undef  Perl_save_hints
 +#define Perl_save_hints               pPerl->Perl_save_hints
 +#undef  save_hints
 +#define save_hints            Perl_save_hints
 +#undef  Perl_save_hptr
 +#define Perl_save_hptr                pPerl->Perl_save_hptr
 +#undef  save_hptr
 +#define save_hptr             Perl_save_hptr
 +#undef  Perl_save_I16
 +#define Perl_save_I16         pPerl->Perl_save_I16
 +#undef  save_I16
 +#define save_I16              Perl_save_I16
 +#undef  Perl_save_I32
 +#define Perl_save_I32         pPerl->Perl_save_I32
 +#undef  save_I32
 +#define save_I32              Perl_save_I32
 +#undef  Perl_save_I8
 +#define Perl_save_I8          pPerl->Perl_save_I8
 +#undef  save_I8
 +#define save_I8                       Perl_save_I8
 +#undef  Perl_save_int
 +#define Perl_save_int         pPerl->Perl_save_int
 +#undef  save_int
 +#define save_int              Perl_save_int
 +#undef  Perl_save_item
 +#define Perl_save_item                pPerl->Perl_save_item
 +#undef  save_item
 +#define save_item             Perl_save_item
 +#undef  Perl_save_iv
 +#define Perl_save_iv          pPerl->Perl_save_iv
 +#undef  save_iv
 +#define save_iv                       Perl_save_iv
 +#undef  Perl_save_list
 +#define Perl_save_list                pPerl->Perl_save_list
 +#undef  save_list
 +#define save_list             Perl_save_list
 +#undef  Perl_save_long
 +#define Perl_save_long                pPerl->Perl_save_long
 +#undef  save_long
 +#define save_long             Perl_save_long
 +#undef  Perl_save_mortalizesv
 +#define Perl_save_mortalizesv pPerl->Perl_save_mortalizesv
 +#undef  save_mortalizesv
 +#define save_mortalizesv      Perl_save_mortalizesv
 +#undef  Perl_save_nogv
 +#define Perl_save_nogv                pPerl->Perl_save_nogv
 +#undef  save_nogv
 +#define save_nogv             Perl_save_nogv
 +#undef  Perl_save_scalar
 +#define Perl_save_scalar      pPerl->Perl_save_scalar
 +#undef  save_scalar
 +#define save_scalar           Perl_save_scalar
 +#undef  Perl_save_pptr
 +#define Perl_save_pptr                pPerl->Perl_save_pptr
 +#undef  save_pptr
 +#define save_pptr             Perl_save_pptr
 +#undef  Perl_save_vptr
 +#define Perl_save_vptr                pPerl->Perl_save_vptr
 +#undef  save_vptr
 +#define save_vptr             Perl_save_vptr
 +#undef  Perl_save_re_context
 +#define Perl_save_re_context  pPerl->Perl_save_re_context
 +#undef  save_re_context
 +#define save_re_context               Perl_save_re_context
 +#undef  Perl_save_padsv
 +#define Perl_save_padsv               pPerl->Perl_save_padsv
 +#undef  save_padsv
 +#define save_padsv            Perl_save_padsv
 +#undef  Perl_save_sptr
 +#define Perl_save_sptr                pPerl->Perl_save_sptr
 +#undef  save_sptr
 +#define save_sptr             Perl_save_sptr
 +#undef  Perl_save_svref
 +#define Perl_save_svref               pPerl->Perl_save_svref
 +#undef  save_svref
 +#define save_svref            Perl_save_svref
 +#undef  Perl_save_threadsv
 +#define Perl_save_threadsv    pPerl->Perl_save_threadsv
 +#undef  save_threadsv
 +#define save_threadsv         Perl_save_threadsv
 +#undef  Perl_scan_bin
 +#define Perl_scan_bin         pPerl->Perl_scan_bin
 +#undef  scan_bin
 +#define scan_bin              Perl_scan_bin
 +#undef  Perl_scan_hex
 +#define Perl_scan_hex         pPerl->Perl_scan_hex
 +#undef  scan_hex
 +#define scan_hex              Perl_scan_hex
 +#undef  Perl_scan_num
 +#define Perl_scan_num         pPerl->Perl_scan_num
 +#undef  scan_num
 +#define scan_num              Perl_scan_num
 +#undef  Perl_scan_oct
 +#define Perl_scan_oct         pPerl->Perl_scan_oct
 +#undef  scan_oct
 +#define scan_oct              Perl_scan_oct
 +#undef  Perl_screaminstr
 +#define Perl_screaminstr      pPerl->Perl_screaminstr
 +#undef  screaminstr
 +#define screaminstr           Perl_screaminstr
 +#if !defined(VMS)
 +#endif
 +#undef  Perl_sharepvn
 +#define Perl_sharepvn         pPerl->Perl_sharepvn
 +#undef  sharepvn
 +#define sharepvn              Perl_sharepvn
 +#undef  Perl_stack_grow
 +#define Perl_stack_grow               pPerl->Perl_stack_grow
 +#undef  stack_grow
 +#define stack_grow            Perl_stack_grow
 +#undef  Perl_start_subparse
 +#define Perl_start_subparse   pPerl->Perl_start_subparse
 +#undef  start_subparse
 +#define start_subparse                Perl_start_subparse
 +#undef  Perl_sv_2bool
 +#define Perl_sv_2bool         pPerl->Perl_sv_2bool
 +#undef  sv_2bool
 +#define sv_2bool              Perl_sv_2bool
 +#undef  Perl_sv_2cv
 +#define Perl_sv_2cv           pPerl->Perl_sv_2cv
 +#undef  sv_2cv
 +#define sv_2cv                        Perl_sv_2cv
 +#undef  Perl_sv_2io
 +#define Perl_sv_2io           pPerl->Perl_sv_2io
 +#undef  sv_2io
 +#define sv_2io                        Perl_sv_2io
 +#undef  Perl_sv_2iv
 +#define Perl_sv_2iv           pPerl->Perl_sv_2iv
 +#undef  sv_2iv
 +#define sv_2iv                        Perl_sv_2iv
 +#undef  Perl_sv_2mortal
 +#define Perl_sv_2mortal               pPerl->Perl_sv_2mortal
 +#undef  sv_2mortal
 +#define sv_2mortal            Perl_sv_2mortal
 +#undef  Perl_sv_2nv
 +#define Perl_sv_2nv           pPerl->Perl_sv_2nv
 +#undef  sv_2nv
 +#define sv_2nv                        Perl_sv_2nv
 +#undef  Perl_sv_2pv
 +#define Perl_sv_2pv           pPerl->Perl_sv_2pv
 +#undef  sv_2pv
 +#define sv_2pv                        Perl_sv_2pv
 +#undef  Perl_sv_2pvutf8
 +#define Perl_sv_2pvutf8               pPerl->Perl_sv_2pvutf8
 +#undef  sv_2pvutf8
 +#define sv_2pvutf8            Perl_sv_2pvutf8
 +#undef  Perl_sv_2pvbyte
 +#define Perl_sv_2pvbyte               pPerl->Perl_sv_2pvbyte
 +#undef  sv_2pvbyte
 +#define sv_2pvbyte            Perl_sv_2pvbyte
 +#undef  Perl_sv_2uv
 +#define Perl_sv_2uv           pPerl->Perl_sv_2uv
 +#undef  sv_2uv
 +#define sv_2uv                        Perl_sv_2uv
 +#undef  Perl_sv_iv
 +#define Perl_sv_iv            pPerl->Perl_sv_iv
 +#undef  sv_iv
 +#define sv_iv                 Perl_sv_iv
 +#undef  Perl_sv_uv
 +#define Perl_sv_uv            pPerl->Perl_sv_uv
 +#undef  sv_uv
 +#define sv_uv                 Perl_sv_uv
 +#undef  Perl_sv_nv
 +#define Perl_sv_nv            pPerl->Perl_sv_nv
 +#undef  sv_nv
 +#define sv_nv                 Perl_sv_nv
 +#undef  Perl_sv_pvn
 +#define Perl_sv_pvn           pPerl->Perl_sv_pvn
 +#undef  sv_pvn
 +#define sv_pvn                        Perl_sv_pvn
 +#undef  Perl_sv_pvutf8n
 +#define Perl_sv_pvutf8n               pPerl->Perl_sv_pvutf8n
 +#undef  sv_pvutf8n
 +#define sv_pvutf8n            Perl_sv_pvutf8n
 +#undef  Perl_sv_pvbyten
 +#define Perl_sv_pvbyten               pPerl->Perl_sv_pvbyten
 +#undef  sv_pvbyten
 +#define sv_pvbyten            Perl_sv_pvbyten
 +#undef  Perl_sv_true
 +#define Perl_sv_true          pPerl->Perl_sv_true
 +#undef  sv_true
 +#define sv_true                       Perl_sv_true
 +#undef  Perl_sv_backoff
 +#define Perl_sv_backoff               pPerl->Perl_sv_backoff
 +#undef  sv_backoff
 +#define sv_backoff            Perl_sv_backoff
 +#undef  Perl_sv_bless
 +#define Perl_sv_bless         pPerl->Perl_sv_bless
 +#undef  sv_bless
 +#define sv_bless              Perl_sv_bless
 +#undef  Perl_sv_catpvf
 +#define Perl_sv_catpvf                pPerl->Perl_sv_catpvf
 +#undef  sv_catpvf
 +#define sv_catpvf             Perl_sv_catpvf
 +#undef  Perl_sv_vcatpvf
 +#define Perl_sv_vcatpvf               pPerl->Perl_sv_vcatpvf
 +#undef  sv_vcatpvf
 +#define sv_vcatpvf            Perl_sv_vcatpvf
 +#undef  Perl_sv_catpv
 +#define Perl_sv_catpv         pPerl->Perl_sv_catpv
 +#undef  sv_catpv
 +#define sv_catpv              Perl_sv_catpv
 +#undef  Perl_sv_catpvn
 +#define Perl_sv_catpvn                pPerl->Perl_sv_catpvn
 +#undef  sv_catpvn
 +#define sv_catpvn             Perl_sv_catpvn
 +#undef  Perl_sv_catsv
 +#define Perl_sv_catsv         pPerl->Perl_sv_catsv
 +#undef  sv_catsv
 +#define sv_catsv              Perl_sv_catsv
 +#undef  Perl_sv_chop
 +#define Perl_sv_chop          pPerl->Perl_sv_chop
 +#undef  sv_chop
 +#define sv_chop                       Perl_sv_chop
 +#undef  Perl_sv_clear
 +#define Perl_sv_clear         pPerl->Perl_sv_clear
 +#undef  sv_clear
 +#define sv_clear              Perl_sv_clear
 +#undef  Perl_sv_cmp
 +#define Perl_sv_cmp           pPerl->Perl_sv_cmp
 +#undef  sv_cmp
 +#define sv_cmp                        Perl_sv_cmp
 +#undef  Perl_sv_cmp_locale
 +#define Perl_sv_cmp_locale    pPerl->Perl_sv_cmp_locale
 +#undef  sv_cmp_locale
 +#define sv_cmp_locale         Perl_sv_cmp_locale
 +#if defined(USE_LOCALE_COLLATE)
 +#undef  Perl_sv_collxfrm
 +#define Perl_sv_collxfrm      pPerl->Perl_sv_collxfrm
 +#undef  sv_collxfrm
 +#define sv_collxfrm           Perl_sv_collxfrm
 +#endif
 +#undef  Perl_sv_compile_2op
 +#define Perl_sv_compile_2op   pPerl->Perl_sv_compile_2op
 +#undef  sv_compile_2op
 +#define sv_compile_2op                Perl_sv_compile_2op
 +#undef  Perl_getcwd_sv
 +#define Perl_getcwd_sv                pPerl->Perl_getcwd_sv
 +#undef  getcwd_sv
 +#define getcwd_sv             Perl_getcwd_sv
 +#undef  Perl_sv_dec
 +#define Perl_sv_dec           pPerl->Perl_sv_dec
 +#undef  sv_dec
 +#define sv_dec                        Perl_sv_dec
 +#undef  Perl_sv_dump
 +#define Perl_sv_dump          pPerl->Perl_sv_dump
 +#undef  sv_dump
 +#define sv_dump                       Perl_sv_dump
 +#undef  Perl_sv_derived_from
 +#define Perl_sv_derived_from  pPerl->Perl_sv_derived_from
 +#undef  sv_derived_from
 +#define sv_derived_from               Perl_sv_derived_from
 +#undef  Perl_sv_eq
 +#define Perl_sv_eq            pPerl->Perl_sv_eq
 +#undef  sv_eq
 +#define sv_eq                 Perl_sv_eq
 +#undef  Perl_sv_free
 +#define Perl_sv_free          pPerl->Perl_sv_free
 +#undef  sv_free
 +#define sv_free                       Perl_sv_free
 +#undef  Perl_sv_gets
 +#define Perl_sv_gets          pPerl->Perl_sv_gets
 +#undef  sv_gets
 +#define sv_gets                       Perl_sv_gets
 +#undef  Perl_sv_grow
 +#define Perl_sv_grow          pPerl->Perl_sv_grow
 +#undef  sv_grow
 +#define sv_grow                       Perl_sv_grow
 +#undef  Perl_sv_inc
 +#define Perl_sv_inc           pPerl->Perl_sv_inc
 +#undef  sv_inc
 +#define sv_inc                        Perl_sv_inc
 +#undef  Perl_sv_insert
 +#define Perl_sv_insert                pPerl->Perl_sv_insert
 +#undef  sv_insert
 +#define sv_insert             Perl_sv_insert
 +#undef  Perl_sv_isa
 +#define Perl_sv_isa           pPerl->Perl_sv_isa
 +#undef  sv_isa
 +#define sv_isa                        Perl_sv_isa
 +#undef  Perl_sv_isobject
 +#define Perl_sv_isobject      pPerl->Perl_sv_isobject
 +#undef  sv_isobject
 +#define sv_isobject           Perl_sv_isobject
 +#undef  Perl_sv_len
 +#define Perl_sv_len           pPerl->Perl_sv_len
 +#undef  sv_len
 +#define sv_len                        Perl_sv_len
 +#undef  Perl_sv_len_utf8
 +#define Perl_sv_len_utf8      pPerl->Perl_sv_len_utf8
 +#undef  sv_len_utf8
 +#define sv_len_utf8           Perl_sv_len_utf8
 +#undef  Perl_sv_magic
 +#define Perl_sv_magic         pPerl->Perl_sv_magic
 +#undef  sv_magic
 +#define sv_magic              Perl_sv_magic
 +#undef  Perl_sv_mortalcopy
 +#define Perl_sv_mortalcopy    pPerl->Perl_sv_mortalcopy
 +#undef  sv_mortalcopy
 +#define sv_mortalcopy         Perl_sv_mortalcopy
 +#undef  Perl_sv_newmortal
 +#define Perl_sv_newmortal     pPerl->Perl_sv_newmortal
 +#undef  sv_newmortal
 +#define sv_newmortal          Perl_sv_newmortal
 +#undef  Perl_sv_newref
 +#define Perl_sv_newref                pPerl->Perl_sv_newref
 +#undef  sv_newref
 +#define sv_newref             Perl_sv_newref
 +#undef  Perl_sv_peek
 +#define Perl_sv_peek          pPerl->Perl_sv_peek
 +#undef  sv_peek
 +#define sv_peek                       Perl_sv_peek
 +#undef  Perl_sv_pos_u2b
 +#define Perl_sv_pos_u2b               pPerl->Perl_sv_pos_u2b
 +#undef  sv_pos_u2b
 +#define sv_pos_u2b            Perl_sv_pos_u2b
 +#undef  Perl_sv_pos_b2u
 +#define Perl_sv_pos_b2u               pPerl->Perl_sv_pos_b2u
 +#undef  sv_pos_b2u
 +#define sv_pos_b2u            Perl_sv_pos_b2u
 +#undef  Perl_sv_pvn_force
 +#define Perl_sv_pvn_force     pPerl->Perl_sv_pvn_force
 +#undef  sv_pvn_force
 +#define sv_pvn_force          Perl_sv_pvn_force
 +#undef  Perl_sv_pvutf8n_force
 +#define Perl_sv_pvutf8n_force pPerl->Perl_sv_pvutf8n_force
 +#undef  sv_pvutf8n_force
 +#define sv_pvutf8n_force      Perl_sv_pvutf8n_force
 +#undef  Perl_sv_pvbyten_force
 +#define Perl_sv_pvbyten_force pPerl->Perl_sv_pvbyten_force
 +#undef  sv_pvbyten_force
 +#define sv_pvbyten_force      Perl_sv_pvbyten_force
 +#undef  Perl_sv_reftype
 +#define Perl_sv_reftype               pPerl->Perl_sv_reftype
 +#undef  sv_reftype
 +#define sv_reftype            Perl_sv_reftype
 +#undef  Perl_sv_replace
 +#define Perl_sv_replace               pPerl->Perl_sv_replace
 +#undef  sv_replace
 +#define sv_replace            Perl_sv_replace
 +#undef  Perl_sv_report_used
 +#define Perl_sv_report_used   pPerl->Perl_sv_report_used
 +#undef  sv_report_used
 +#define sv_report_used                Perl_sv_report_used
 +#undef  Perl_sv_reset
 +#define Perl_sv_reset         pPerl->Perl_sv_reset
 +#undef  sv_reset
 +#define sv_reset              Perl_sv_reset
 +#undef  Perl_sv_setpvf
 +#define Perl_sv_setpvf                pPerl->Perl_sv_setpvf
 +#undef  sv_setpvf
 +#define sv_setpvf             Perl_sv_setpvf
 +#undef  Perl_sv_vsetpvf
 +#define Perl_sv_vsetpvf               pPerl->Perl_sv_vsetpvf
 +#undef  sv_vsetpvf
 +#define sv_vsetpvf            Perl_sv_vsetpvf
 +#undef  Perl_sv_setiv
 +#define Perl_sv_setiv         pPerl->Perl_sv_setiv
 +#undef  sv_setiv
 +#define sv_setiv              Perl_sv_setiv
 +#undef  Perl_sv_setpviv
 +#define Perl_sv_setpviv               pPerl->Perl_sv_setpviv
 +#undef  sv_setpviv
 +#define sv_setpviv            Perl_sv_setpviv
 +#undef  Perl_sv_setuv
 +#define Perl_sv_setuv         pPerl->Perl_sv_setuv
 +#undef  sv_setuv
 +#define sv_setuv              Perl_sv_setuv
 +#undef  Perl_sv_setnv
 +#define Perl_sv_setnv         pPerl->Perl_sv_setnv
 +#undef  sv_setnv
 +#define sv_setnv              Perl_sv_setnv
 +#undef  Perl_sv_setref_iv
 +#define Perl_sv_setref_iv     pPerl->Perl_sv_setref_iv
 +#undef  sv_setref_iv
 +#define sv_setref_iv          Perl_sv_setref_iv
 +#undef  Perl_sv_setref_uv
 +#define Perl_sv_setref_uv     pPerl->Perl_sv_setref_uv
 +#undef  sv_setref_uv
 +#define sv_setref_uv          Perl_sv_setref_uv
 +#undef  Perl_sv_setref_nv
 +#define Perl_sv_setref_nv     pPerl->Perl_sv_setref_nv
 +#undef  sv_setref_nv
 +#define sv_setref_nv          Perl_sv_setref_nv
 +#undef  Perl_sv_setref_pv
 +#define Perl_sv_setref_pv     pPerl->Perl_sv_setref_pv
 +#undef  sv_setref_pv
 +#define sv_setref_pv          Perl_sv_setref_pv
 +#undef  Perl_sv_setref_pvn
 +#define Perl_sv_setref_pvn    pPerl->Perl_sv_setref_pvn
 +#undef  sv_setref_pvn
 +#define sv_setref_pvn         Perl_sv_setref_pvn
 +#undef  Perl_sv_setpv
 +#define Perl_sv_setpv         pPerl->Perl_sv_setpv
 +#undef  sv_setpv
 +#define sv_setpv              Perl_sv_setpv
 +#undef  Perl_sv_setpvn
 +#define Perl_sv_setpvn                pPerl->Perl_sv_setpvn
 +#undef  sv_setpvn
 +#define sv_setpvn             Perl_sv_setpvn
 +#undef  Perl_sv_setsv
 +#define Perl_sv_setsv         pPerl->Perl_sv_setsv
 +#undef  sv_setsv
 +#define sv_setsv              Perl_sv_setsv
 +#undef  Perl_sv_taint
 +#define Perl_sv_taint         pPerl->Perl_sv_taint
 +#undef  sv_taint
 +#define sv_taint              Perl_sv_taint
 +#undef  Perl_sv_tainted
 +#define Perl_sv_tainted               pPerl->Perl_sv_tainted
 +#undef  sv_tainted
 +#define sv_tainted            Perl_sv_tainted
 +#undef  Perl_sv_unmagic
 +#define Perl_sv_unmagic               pPerl->Perl_sv_unmagic
 +#undef  sv_unmagic
 +#define sv_unmagic            Perl_sv_unmagic
 +#undef  Perl_sv_unref
 +#define Perl_sv_unref         pPerl->Perl_sv_unref
 +#undef  sv_unref
 +#define sv_unref              Perl_sv_unref
 +#undef  Perl_sv_unref_flags
 +#define Perl_sv_unref_flags   pPerl->Perl_sv_unref_flags
 +#undef  sv_unref_flags
 +#define sv_unref_flags                Perl_sv_unref_flags
 +#undef  Perl_sv_untaint
 +#define Perl_sv_untaint               pPerl->Perl_sv_untaint
 +#undef  sv_untaint
 +#define sv_untaint            Perl_sv_untaint
 +#undef  Perl_sv_upgrade
 +#define Perl_sv_upgrade               pPerl->Perl_sv_upgrade
 +#undef  sv_upgrade
 +#define sv_upgrade            Perl_sv_upgrade
 +#undef  Perl_sv_usepvn
 +#define Perl_sv_usepvn                pPerl->Perl_sv_usepvn
 +#undef  sv_usepvn
 +#define sv_usepvn             Perl_sv_usepvn
 +#undef  Perl_sv_vcatpvfn
 +#define Perl_sv_vcatpvfn      pPerl->Perl_sv_vcatpvfn
 +#undef  sv_vcatpvfn
 +#define sv_vcatpvfn           Perl_sv_vcatpvfn
 +#undef  Perl_sv_vsetpvfn
 +#define Perl_sv_vsetpvfn      pPerl->Perl_sv_vsetpvfn
 +#undef  sv_vsetpvfn
 +#define sv_vsetpvfn           Perl_sv_vsetpvfn
 +#undef  Perl_str_to_version
 +#define Perl_str_to_version   pPerl->Perl_str_to_version
 +#undef  str_to_version
 +#define str_to_version                Perl_str_to_version
 +#undef  Perl_swash_init
 +#define Perl_swash_init               pPerl->Perl_swash_init
 +#undef  swash_init
 +#define swash_init            Perl_swash_init
 +#undef  Perl_swash_fetch
 +#define Perl_swash_fetch      pPerl->Perl_swash_fetch
 +#undef  swash_fetch
 +#define swash_fetch           Perl_swash_fetch
 +#undef  Perl_taint_env
 +#define Perl_taint_env                pPerl->Perl_taint_env
 +#undef  taint_env
 +#define taint_env             Perl_taint_env
 +#undef  Perl_taint_proper
 +#define Perl_taint_proper     pPerl->Perl_taint_proper
 +#undef  taint_proper
 +#define taint_proper          Perl_taint_proper
 +#undef  Perl_to_utf8_lower
 +#define Perl_to_utf8_lower    pPerl->Perl_to_utf8_lower
 +#undef  to_utf8_lower
 +#define to_utf8_lower         Perl_to_utf8_lower
 +#undef  Perl_to_utf8_upper
 +#define Perl_to_utf8_upper    pPerl->Perl_to_utf8_upper
 +#undef  to_utf8_upper
 +#define to_utf8_upper         Perl_to_utf8_upper
 +#undef  Perl_to_utf8_title
 +#define Perl_to_utf8_title    pPerl->Perl_to_utf8_title
 +#undef  to_utf8_title
 +#define to_utf8_title         Perl_to_utf8_title
 +#if defined(UNLINK_ALL_VERSIONS)
 +#undef  Perl_unlnk
 +#define Perl_unlnk            pPerl->Perl_unlnk
 +#undef  unlnk
 +#define unlnk                 Perl_unlnk
 +#endif
- #if defined(USE_THREADS)
++#if defined(USE_5005THREADS)
 +#undef  Perl_unlock_condpair
 +#define Perl_unlock_condpair  pPerl->Perl_unlock_condpair
 +#undef  unlock_condpair
 +#define unlock_condpair               Perl_unlock_condpair
 +#endif
 +#undef  Perl_unsharepvn
 +#define Perl_unsharepvn               pPerl->Perl_unsharepvn
 +#undef  unsharepvn
 +#define unsharepvn            Perl_unsharepvn
 +#undef  Perl_utf16_to_utf8
 +#define Perl_utf16_to_utf8    pPerl->Perl_utf16_to_utf8
 +#undef  utf16_to_utf8
 +#define utf16_to_utf8         Perl_utf16_to_utf8
 +#undef  Perl_utf16_to_utf8_reversed
 +#define Perl_utf16_to_utf8_reversed   pPerl->Perl_utf16_to_utf8_reversed
 +#undef  utf16_to_utf8_reversed
 +#define utf16_to_utf8_reversed        Perl_utf16_to_utf8_reversed
 +#undef  Perl_utf8_length
 +#define Perl_utf8_length      pPerl->Perl_utf8_length
 +#undef  utf8_length
 +#define utf8_length           Perl_utf8_length
 +#undef  Perl_utf8_distance
 +#define Perl_utf8_distance    pPerl->Perl_utf8_distance
 +#undef  utf8_distance
 +#define utf8_distance         Perl_utf8_distance
 +#undef  Perl_utf8_hop
 +#define Perl_utf8_hop         pPerl->Perl_utf8_hop
 +#undef  utf8_hop
 +#define utf8_hop              Perl_utf8_hop
 +#undef  Perl_utf8_to_bytes
 +#define Perl_utf8_to_bytes    pPerl->Perl_utf8_to_bytes
 +#undef  utf8_to_bytes
 +#define utf8_to_bytes         Perl_utf8_to_bytes
 +#undef  Perl_bytes_from_utf8
 +#define Perl_bytes_from_utf8  pPerl->Perl_bytes_from_utf8
 +#undef  bytes_from_utf8
 +#define bytes_from_utf8               Perl_bytes_from_utf8
 +#undef  Perl_bytes_to_utf8
 +#define Perl_bytes_to_utf8    pPerl->Perl_bytes_to_utf8
 +#undef  bytes_to_utf8
 +#define bytes_to_utf8         Perl_bytes_to_utf8
 +#undef  Perl_utf8_to_uvchr
 +#define Perl_utf8_to_uvchr    pPerl->Perl_utf8_to_uvchr
 +#undef  utf8_to_uvchr
 +#define utf8_to_uvchr         Perl_utf8_to_uvchr
 +#undef  Perl_utf8_to_uvuni
 +#define Perl_utf8_to_uvuni    pPerl->Perl_utf8_to_uvuni
 +#undef  utf8_to_uvuni
 +#define utf8_to_uvuni         Perl_utf8_to_uvuni
 +#undef  Perl_utf8n_to_uvchr
 +#define Perl_utf8n_to_uvchr   pPerl->Perl_utf8n_to_uvchr
 +#undef  utf8n_to_uvchr
 +#define utf8n_to_uvchr                Perl_utf8n_to_uvchr
 +#undef  Perl_utf8n_to_uvuni
 +#define Perl_utf8n_to_uvuni   pPerl->Perl_utf8n_to_uvuni
 +#undef  utf8n_to_uvuni
 +#define utf8n_to_uvuni                Perl_utf8n_to_uvuni
 +#undef  Perl_uvchr_to_utf8
 +#define Perl_uvchr_to_utf8    pPerl->Perl_uvchr_to_utf8
 +#undef  uvchr_to_utf8
 +#define uvchr_to_utf8         Perl_uvchr_to_utf8
 +#undef  Perl_uvuni_to_utf8
 +#define Perl_uvuni_to_utf8    pPerl->Perl_uvuni_to_utf8
 +#undef  uvuni_to_utf8
 +#define uvuni_to_utf8         Perl_uvuni_to_utf8
 +#undef  Perl_warn
 +#define Perl_warn             pPerl->Perl_warn
 +#undef  warn
 +#define warn                  Perl_warn
 +#undef  Perl_vwarn
 +#define Perl_vwarn            pPerl->Perl_vwarn
 +#undef  vwarn
 +#define vwarn                 Perl_vwarn
 +#undef  Perl_warner
 +#define Perl_warner           pPerl->Perl_warner
 +#undef  warner
 +#define warner                        Perl_warner
 +#undef  Perl_vwarner
 +#define Perl_vwarner          pPerl->Perl_vwarner
 +#undef  vwarner
 +#define vwarner                       Perl_vwarner
 +#undef  Perl_whichsig
 +#define Perl_whichsig         pPerl->Perl_whichsig
 +#undef  whichsig
 +#define whichsig              Perl_whichsig
 +#ifdef USE_PURE_BISON
 +#endif
 +#if defined(MYMALLOC)
 +#undef  Perl_dump_mstats
 +#define Perl_dump_mstats      pPerl->Perl_dump_mstats
 +#undef  dump_mstats
 +#define dump_mstats           Perl_dump_mstats
 +#undef  Perl_get_mstats
 +#define Perl_get_mstats               pPerl->Perl_get_mstats
 +#undef  get_mstats
 +#define get_mstats            Perl_get_mstats
 +#endif
 +#undef  Perl_safesysmalloc
 +#define Perl_safesysmalloc    pPerl->Perl_safesysmalloc
 +#undef  safesysmalloc
 +#define safesysmalloc         Perl_safesysmalloc
 +#undef  Perl_safesyscalloc
 +#define Perl_safesyscalloc    pPerl->Perl_safesyscalloc
 +#undef  safesyscalloc
 +#define safesyscalloc         Perl_safesyscalloc
 +#undef  Perl_safesysrealloc
 +#define Perl_safesysrealloc   pPerl->Perl_safesysrealloc
 +#undef  safesysrealloc
 +#define safesysrealloc                Perl_safesysrealloc
 +#undef  Perl_safesysfree
 +#define Perl_safesysfree      pPerl->Perl_safesysfree
 +#undef  safesysfree
 +#define safesysfree           Perl_safesysfree
 +#if defined(LEAKTEST)
 +#undef  Perl_safexmalloc
 +#define Perl_safexmalloc      pPerl->Perl_safexmalloc
 +#undef  safexmalloc
 +#define safexmalloc           Perl_safexmalloc
 +#undef  Perl_safexcalloc
 +#define Perl_safexcalloc      pPerl->Perl_safexcalloc
 +#undef  safexcalloc
 +#define safexcalloc           Perl_safexcalloc
 +#undef  Perl_safexrealloc
 +#define Perl_safexrealloc     pPerl->Perl_safexrealloc
 +#undef  safexrealloc
 +#define safexrealloc          Perl_safexrealloc
 +#undef  Perl_safexfree
 +#define Perl_safexfree                pPerl->Perl_safexfree
 +#undef  safexfree
 +#define safexfree             Perl_safexfree
 +#endif
 +#if defined(PERL_GLOBAL_STRUCT)
 +#undef  Perl_GetVars
 +#define Perl_GetVars          pPerl->Perl_GetVars
 +#undef  GetVars
 +#define GetVars                       Perl_GetVars
 +#endif
 +#undef  Perl_runops_standard
 +#define Perl_runops_standard  pPerl->Perl_runops_standard
 +#undef  runops_standard
 +#define runops_standard               Perl_runops_standard
 +#undef  Perl_runops_debug
 +#define Perl_runops_debug     pPerl->Perl_runops_debug
 +#undef  runops_debug
 +#define runops_debug          Perl_runops_debug
- #if defined(USE_THREADS)
++#if defined(USE_5005THREADS)
 +#undef  Perl_sv_lock
 +#define Perl_sv_lock          pPerl->Perl_sv_lock
 +#undef  sv_lock
 +#define sv_lock                       Perl_sv_lock
 +#endif
 +#undef  Perl_sv_catpvf_mg
 +#define Perl_sv_catpvf_mg     pPerl->Perl_sv_catpvf_mg
 +#undef  sv_catpvf_mg
 +#define sv_catpvf_mg          Perl_sv_catpvf_mg
 +#undef  Perl_sv_vcatpvf_mg
 +#define Perl_sv_vcatpvf_mg    pPerl->Perl_sv_vcatpvf_mg
 +#undef  sv_vcatpvf_mg
 +#define sv_vcatpvf_mg         Perl_sv_vcatpvf_mg
 +#undef  Perl_sv_catpv_mg
 +#define Perl_sv_catpv_mg      pPerl->Perl_sv_catpv_mg
 +#undef  sv_catpv_mg
 +#define sv_catpv_mg           Perl_sv_catpv_mg
 +#undef  Perl_sv_catpvn_mg
 +#define Perl_sv_catpvn_mg     pPerl->Perl_sv_catpvn_mg
 +#undef  sv_catpvn_mg
 +#define sv_catpvn_mg          Perl_sv_catpvn_mg
 +#undef  Perl_sv_catsv_mg
 +#define Perl_sv_catsv_mg      pPerl->Perl_sv_catsv_mg
 +#undef  sv_catsv_mg
 +#define sv_catsv_mg           Perl_sv_catsv_mg
 +#undef  Perl_sv_setpvf_mg
 +#define Perl_sv_setpvf_mg     pPerl->Perl_sv_setpvf_mg
 +#undef  sv_setpvf_mg
 +#define sv_setpvf_mg          Perl_sv_setpvf_mg
 +#undef  Perl_sv_vsetpvf_mg
 +#define Perl_sv_vsetpvf_mg    pPerl->Perl_sv_vsetpvf_mg
 +#undef  sv_vsetpvf_mg
 +#define sv_vsetpvf_mg         Perl_sv_vsetpvf_mg
 +#undef  Perl_sv_setiv_mg
 +#define Perl_sv_setiv_mg      pPerl->Perl_sv_setiv_mg
 +#undef  sv_setiv_mg
 +#define sv_setiv_mg           Perl_sv_setiv_mg
 +#undef  Perl_sv_setpviv_mg
 +#define Perl_sv_setpviv_mg    pPerl->Perl_sv_setpviv_mg
 +#undef  sv_setpviv_mg
 +#define sv_setpviv_mg         Perl_sv_setpviv_mg
 +#undef  Perl_sv_setuv_mg
 +#define Perl_sv_setuv_mg      pPerl->Perl_sv_setuv_mg
 +#undef  sv_setuv_mg
 +#define sv_setuv_mg           Perl_sv_setuv_mg
 +#undef  Perl_sv_setnv_mg
 +#define Perl_sv_setnv_mg      pPerl->Perl_sv_setnv_mg
 +#undef  sv_setnv_mg
 +#define sv_setnv_mg           Perl_sv_setnv_mg
 +#undef  Perl_sv_setpv_mg
 +#define Perl_sv_setpv_mg      pPerl->Perl_sv_setpv_mg
 +#undef  sv_setpv_mg
 +#define sv_setpv_mg           Perl_sv_setpv_mg
 +#undef  Perl_sv_setpvn_mg
 +#define Perl_sv_setpvn_mg     pPerl->Perl_sv_setpvn_mg
 +#undef  sv_setpvn_mg
 +#define sv_setpvn_mg          Perl_sv_setpvn_mg
 +#undef  Perl_sv_setsv_mg
 +#define Perl_sv_setsv_mg      pPerl->Perl_sv_setsv_mg
 +#undef  sv_setsv_mg
 +#define sv_setsv_mg           Perl_sv_setsv_mg
 +#undef  Perl_sv_usepvn_mg
 +#define Perl_sv_usepvn_mg     pPerl->Perl_sv_usepvn_mg
 +#undef  sv_usepvn_mg
 +#define sv_usepvn_mg          Perl_sv_usepvn_mg
 +#undef  Perl_get_vtbl
 +#define Perl_get_vtbl         pPerl->Perl_get_vtbl
 +#undef  get_vtbl
 +#define get_vtbl              Perl_get_vtbl
 +#undef  Perl_dump_indent
 +#define Perl_dump_indent      pPerl->Perl_dump_indent
 +#undef  dump_indent
 +#define dump_indent           Perl_dump_indent
 +#undef  Perl_dump_vindent
 +#define Perl_dump_vindent     pPerl->Perl_dump_vindent
 +#undef  dump_vindent
 +#define dump_vindent          Perl_dump_vindent
 +#undef  Perl_do_gv_dump
 +#define Perl_do_gv_dump               pPerl->Perl_do_gv_dump
 +#undef  do_gv_dump
 +#define do_gv_dump            Perl_do_gv_dump
 +#undef  Perl_do_gvgv_dump
 +#define Perl_do_gvgv_dump     pPerl->Perl_do_gvgv_dump
 +#undef  do_gvgv_dump
 +#define do_gvgv_dump          Perl_do_gvgv_dump
 +#undef  Perl_do_hv_dump
 +#define Perl_do_hv_dump               pPerl->Perl_do_hv_dump
 +#undef  do_hv_dump
 +#define do_hv_dump            Perl_do_hv_dump
 +#undef  Perl_do_magic_dump
 +#define Perl_do_magic_dump    pPerl->Perl_do_magic_dump
 +#undef  do_magic_dump
 +#define do_magic_dump         Perl_do_magic_dump
 +#undef  Perl_do_op_dump
 +#define Perl_do_op_dump               pPerl->Perl_do_op_dump
 +#undef  do_op_dump
 +#define do_op_dump            Perl_do_op_dump
 +#undef  Perl_do_pmop_dump
 +#define Perl_do_pmop_dump     pPerl->Perl_do_pmop_dump
 +#undef  do_pmop_dump
 +#define do_pmop_dump          Perl_do_pmop_dump
 +#undef  Perl_do_sv_dump
 +#define Perl_do_sv_dump               pPerl->Perl_do_sv_dump
 +#undef  do_sv_dump
 +#define do_sv_dump            Perl_do_sv_dump
 +#undef  Perl_magic_dump
 +#define Perl_magic_dump               pPerl->Perl_magic_dump
 +#undef  magic_dump
 +#define magic_dump            Perl_magic_dump
 +#if defined(PERL_FLEXIBLE_EXCEPTIONS)
 +#undef  Perl_default_protect
 +#define Perl_default_protect  pPerl->Perl_default_protect
 +#undef  default_protect
 +#define default_protect               Perl_default_protect
 +#undef  Perl_vdefault_protect
 +#define Perl_vdefault_protect pPerl->Perl_vdefault_protect
 +#undef  vdefault_protect
 +#define vdefault_protect      Perl_vdefault_protect
 +#endif
 +#undef  Perl_reginitcolors
 +#define Perl_reginitcolors    pPerl->Perl_reginitcolors
 +#undef  reginitcolors
 +#define reginitcolors         Perl_reginitcolors
 +#undef  Perl_sv_2pv_nolen
 +#define Perl_sv_2pv_nolen     pPerl->Perl_sv_2pv_nolen
 +#undef  sv_2pv_nolen
 +#define sv_2pv_nolen          Perl_sv_2pv_nolen
 +#undef  Perl_sv_2pvutf8_nolen
 +#define Perl_sv_2pvutf8_nolen pPerl->Perl_sv_2pvutf8_nolen
 +#undef  sv_2pvutf8_nolen
 +#define sv_2pvutf8_nolen      Perl_sv_2pvutf8_nolen
 +#undef  Perl_sv_2pvbyte_nolen
 +#define Perl_sv_2pvbyte_nolen pPerl->Perl_sv_2pvbyte_nolen
 +#undef  sv_2pvbyte_nolen
 +#define sv_2pvbyte_nolen      Perl_sv_2pvbyte_nolen
 +#undef  Perl_sv_pv
 +#define Perl_sv_pv            pPerl->Perl_sv_pv
 +#undef  sv_pv
 +#define sv_pv                 Perl_sv_pv
 +#undef  Perl_sv_pvutf8
 +#define Perl_sv_pvutf8                pPerl->Perl_sv_pvutf8
 +#undef  sv_pvutf8
 +#define sv_pvutf8             Perl_sv_pvutf8
 +#undef  Perl_sv_pvbyte
 +#define Perl_sv_pvbyte                pPerl->Perl_sv_pvbyte
 +#undef  sv_pvbyte
 +#define sv_pvbyte             Perl_sv_pvbyte
 +#undef  Perl_sv_utf8_upgrade
 +#define Perl_sv_utf8_upgrade  pPerl->Perl_sv_utf8_upgrade
 +#undef  sv_utf8_upgrade
 +#define sv_utf8_upgrade               Perl_sv_utf8_upgrade
 +#undef  Perl_sv_utf8_downgrade
 +#define Perl_sv_utf8_downgrade        pPerl->Perl_sv_utf8_downgrade
 +#undef  sv_utf8_downgrade
 +#define sv_utf8_downgrade     Perl_sv_utf8_downgrade
 +#undef  Perl_sv_utf8_encode
 +#define Perl_sv_utf8_encode   pPerl->Perl_sv_utf8_encode
 +#undef  sv_utf8_encode
 +#define sv_utf8_encode                Perl_sv_utf8_encode
 +#undef  Perl_sv_utf8_decode
 +#define Perl_sv_utf8_decode   pPerl->Perl_sv_utf8_decode
 +#undef  sv_utf8_decode
 +#define sv_utf8_decode                Perl_sv_utf8_decode
 +#undef  Perl_sv_force_normal
 +#define Perl_sv_force_normal  pPerl->Perl_sv_force_normal
 +#undef  sv_force_normal
 +#define sv_force_normal               Perl_sv_force_normal
 +#undef  Perl_sv_force_normal_flags
 +#define Perl_sv_force_normal_flags    pPerl->Perl_sv_force_normal_flags
 +#undef  sv_force_normal_flags
 +#define sv_force_normal_flags Perl_sv_force_normal_flags
 +#undef  Perl_tmps_grow
 +#define Perl_tmps_grow                pPerl->Perl_tmps_grow
 +#undef  tmps_grow
 +#define tmps_grow             Perl_tmps_grow
 +#undef  Perl_sv_rvweaken
 +#define Perl_sv_rvweaken      pPerl->Perl_sv_rvweaken
 +#undef  sv_rvweaken
 +#define sv_rvweaken           Perl_sv_rvweaken
 +#undef  Perl_newANONATTRSUB
 +#define Perl_newANONATTRSUB   pPerl->Perl_newANONATTRSUB
 +#undef  newANONATTRSUB
 +#define newANONATTRSUB                Perl_newANONATTRSUB
 +#undef  Perl_newATTRSUB
 +#define Perl_newATTRSUB               pPerl->Perl_newATTRSUB
 +#undef  newATTRSUB
 +#define newATTRSUB            Perl_newATTRSUB
 +#undef  Perl_newMYSUB
 +#define Perl_newMYSUB         pPerl->Perl_newMYSUB
 +#undef  newMYSUB
 +#define newMYSUB              Perl_newMYSUB
 +#if defined(USE_ITHREADS)
 +#undef  Perl_cx_dup
 +#define Perl_cx_dup           pPerl->Perl_cx_dup
 +#undef  cx_dup
 +#define cx_dup                        Perl_cx_dup
 +#undef  Perl_si_dup
 +#define Perl_si_dup           pPerl->Perl_si_dup
 +#undef  si_dup
 +#define si_dup                        Perl_si_dup
 +#undef  Perl_ss_dup
 +#define Perl_ss_dup           pPerl->Perl_ss_dup
 +#undef  ss_dup
 +#define ss_dup                        Perl_ss_dup
 +#undef  Perl_any_dup
 +#define Perl_any_dup          pPerl->Perl_any_dup
 +#undef  any_dup
 +#define any_dup                       Perl_any_dup
 +#undef  Perl_he_dup
 +#define Perl_he_dup           pPerl->Perl_he_dup
 +#undef  he_dup
 +#define he_dup                        Perl_he_dup
 +#undef  Perl_re_dup
 +#define Perl_re_dup           pPerl->Perl_re_dup
 +#undef  re_dup
 +#define re_dup                        Perl_re_dup
 +#undef  Perl_fp_dup
 +#define Perl_fp_dup           pPerl->Perl_fp_dup
 +#undef  fp_dup
 +#define fp_dup                        Perl_fp_dup
 +#undef  Perl_dirp_dup
 +#define Perl_dirp_dup         pPerl->Perl_dirp_dup
 +#undef  dirp_dup
 +#define dirp_dup              Perl_dirp_dup
 +#undef  Perl_gp_dup
 +#define Perl_gp_dup           pPerl->Perl_gp_dup
 +#undef  gp_dup
 +#define gp_dup                        Perl_gp_dup
 +#undef  Perl_mg_dup
 +#define Perl_mg_dup           pPerl->Perl_mg_dup
 +#undef  mg_dup
 +#define mg_dup                        Perl_mg_dup
 +#undef  Perl_sv_dup
 +#define Perl_sv_dup           pPerl->Perl_sv_dup
 +#undef  sv_dup
 +#define sv_dup                        Perl_sv_dup
 +#if defined(HAVE_INTERP_INTERN)
 +#undef  Perl_sys_intern_dup
 +#define Perl_sys_intern_dup   pPerl->Perl_sys_intern_dup
 +#undef  sys_intern_dup
 +#define sys_intern_dup                Perl_sys_intern_dup
 +#endif
 +#undef  Perl_ptr_table_new
 +#define Perl_ptr_table_new    pPerl->Perl_ptr_table_new
 +#undef  ptr_table_new
 +#define ptr_table_new         Perl_ptr_table_new
 +#undef  Perl_ptr_table_fetch
 +#define Perl_ptr_table_fetch  pPerl->Perl_ptr_table_fetch
 +#undef  ptr_table_fetch
 +#define ptr_table_fetch               Perl_ptr_table_fetch
 +#undef  Perl_ptr_table_store
 +#define Perl_ptr_table_store  pPerl->Perl_ptr_table_store
 +#undef  ptr_table_store
 +#define ptr_table_store               Perl_ptr_table_store
 +#undef  Perl_ptr_table_split
 +#define Perl_ptr_table_split  pPerl->Perl_ptr_table_split
 +#undef  ptr_table_split
 +#define ptr_table_split               Perl_ptr_table_split
 +#undef  Perl_ptr_table_clear
 +#define Perl_ptr_table_clear  pPerl->Perl_ptr_table_clear
 +#undef  ptr_table_clear
 +#define ptr_table_clear               Perl_ptr_table_clear
 +#undef  Perl_ptr_table_free
 +#define Perl_ptr_table_free   pPerl->Perl_ptr_table_free
 +#undef  ptr_table_free
 +#define ptr_table_free                Perl_ptr_table_free
 +#endif
 +#if defined(HAVE_INTERP_INTERN)
 +#undef  Perl_sys_intern_clear
 +#define Perl_sys_intern_clear pPerl->Perl_sys_intern_clear
 +#undef  sys_intern_clear
 +#define sys_intern_clear      Perl_sys_intern_clear
 +#undef  Perl_sys_intern_init
 +#define Perl_sys_intern_init  pPerl->Perl_sys_intern_init
 +#undef  sys_intern_init
 +#define sys_intern_init               Perl_sys_intern_init
 +#endif
++#if defined(PERL_CUSTOM_OPS)
++#undef  Perl_custom_op_name
++#define Perl_custom_op_name   pPerl->Perl_custom_op_name
++#undef  custom_op_name
++#define custom_op_name                Perl_custom_op_name
++#undef  Perl_custom_op_desc
++#define Perl_custom_op_desc   pPerl->Perl_custom_op_desc
++#undef  custom_op_desc
++#define custom_op_desc                Perl_custom_op_desc
++#endif
 +#if defined(PERL_OBJECT)
 +#else
 +#endif
 +#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
 +#  if defined(DEBUG_CLOSURES)
 +#  endif
 +#  if defined(PL_OP_SLAB_ALLOC)
 +#  endif
 +#endif
 +#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
 +#  if defined(IAMSUID)
 +#  endif
 +#if defined(PERL_FLEXIBLE_EXCEPTIONS)
 +#endif
- #  if defined(USE_THREADS)
++#  if defined(USE_5005THREADS)
 +#  endif
 +#endif
 +#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
 +#if defined(PERL_FLEXIBLE_EXCEPTIONS)
 +#endif
 +#endif
 +#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
 +#  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
 +#  endif
 +#endif
 +#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
 +#  ifdef DEBUGGING
 +#  endif
 +#endif
 +#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
 +#   ifdef DEBUGGING
 +#   endif
 +#endif
 +#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(USE_ITHREADS) && (defined(PERL_IN_SHAREDSV_C) || defined(PERL_DECL_PROT))
 +#undef  Perl_sharedsv_init
 +#define Perl_sharedsv_init    pPerl->Perl_sharedsv_init
 +#undef  sharedsv_init
 +#define sharedsv_init         Perl_sharedsv_init
 +#undef  Perl_sharedsv_new
 +#define Perl_sharedsv_new     pPerl->Perl_sharedsv_new
 +#undef  sharedsv_new
 +#define sharedsv_new          Perl_sharedsv_new
 +#undef  Perl_sharedsv_find
 +#define Perl_sharedsv_find    pPerl->Perl_sharedsv_find
 +#undef  sharedsv_find
 +#define sharedsv_find         Perl_sharedsv_find
 +#undef  Perl_sharedsv_lock
 +#define Perl_sharedsv_lock    pPerl->Perl_sharedsv_lock
 +#undef  sharedsv_lock
 +#define sharedsv_lock         Perl_sharedsv_lock
 +#undef  Perl_sharedsv_unlock
 +#define Perl_sharedsv_unlock  pPerl->Perl_sharedsv_unlock
 +#undef  sharedsv_unlock
 +#define sharedsv_unlock               Perl_sharedsv_unlock
 +#undef  Perl_sharedsv_thrcnt_inc
 +#define Perl_sharedsv_thrcnt_inc      pPerl->Perl_sharedsv_thrcnt_inc
 +#undef  sharedsv_thrcnt_inc
 +#define sharedsv_thrcnt_inc   Perl_sharedsv_thrcnt_inc
 +#undef  Perl_sharedsv_thrcnt_dec
 +#define Perl_sharedsv_thrcnt_dec      pPerl->Perl_sharedsv_thrcnt_dec
 +#undef  sharedsv_thrcnt_dec
 +#define sharedsv_thrcnt_dec   Perl_sharedsv_thrcnt_dec
 +#endif
 +#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 +#  ifdef DEBUGGING
 +#  endif
 +#  if !defined(NV_PRESERVES_UV)
 +#  endif
 +#  if defined(USE_ITHREADS)
 +#  endif
 +#endif
 +#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 +#  if defined(DEBUGGING)
 +#  endif
 +#if 0
 +#endif
 +#  if defined(CRIPPLED_CC)
 +#  endif
 +#  if defined(PERL_CR_FILTER)
 +#  endif
 +#endif
 +#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
 +#endif
 +#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
 +#  if defined(LEAKTEST)
 +#  endif
 +#endif
 +#if defined(PERL_OBJECT)
 +#endif
 +#undef  Perl_sv_setsv_flags
 +#define Perl_sv_setsv_flags   pPerl->Perl_sv_setsv_flags
 +#undef  sv_setsv_flags
 +#define sv_setsv_flags                Perl_sv_setsv_flags
 +#undef  Perl_sv_catpvn_flags
 +#define Perl_sv_catpvn_flags  pPerl->Perl_sv_catpvn_flags
 +#undef  sv_catpvn_flags
 +#define sv_catpvn_flags               Perl_sv_catpvn_flags
 +#undef  Perl_sv_catsv_flags
 +#define Perl_sv_catsv_flags   pPerl->Perl_sv_catsv_flags
 +#undef  sv_catsv_flags
 +#define sv_catsv_flags                Perl_sv_catsv_flags
 +#undef  Perl_sv_utf8_upgrade_flags
 +#define Perl_sv_utf8_upgrade_flags    pPerl->Perl_sv_utf8_upgrade_flags
 +#undef  sv_utf8_upgrade_flags
 +#define sv_utf8_upgrade_flags Perl_sv_utf8_upgrade_flags
 +#undef  Perl_sv_pvn_force_flags
 +#define Perl_sv_pvn_force_flags       pPerl->Perl_sv_pvn_force_flags
 +#undef  sv_pvn_force_flags
 +#define sv_pvn_force_flags    Perl_sv_pvn_force_flags
 +#undef  Perl_sv_2pv_flags
 +#define Perl_sv_2pv_flags     pPerl->Perl_sv_2pv_flags
 +#undef  sv_2pv_flags
 +#define sv_2pv_flags          Perl_sv_2pv_flags
 +#undef  Perl_my_atof2
 +#define Perl_my_atof2         pPerl->Perl_my_atof2
 +#undef  my_atof2
 +#define my_atof2              Perl_my_atof2
 +
 +#endif  /* PERL_CORE && PERL_OBJECT */
 +#endif        /* __objXSUB_h__ */
diff --cc t/op/inccode.t
index 0000000,95ee7c0..85a235d
mode 000000,100644..100644
--- /dev/null
@@@ -1,0 -1,137 +1,110 @@@
+ #!./perl -wT
+ # Tests for the coderef-in-@INC feature
+ BEGIN {
+     chdir 't' if -d 't';
+     @INC = '../lib';
+ }
 -use File::Spec;
 -use Test::More tests => 30;
 -
 -my @tempfiles = ();
 -
 -sub get_temp_fh {
 -    my $f = "DummyModule0000";
 -    1 while -e ++$f;
 -    push @tempfiles, $f;
 -    open my $fh, ">$f" or die "Can't create $f: $!";
 -    print $fh "package ".substr($_[0],0,-3)."; 1;";
 -    close $fh;
 -    open $fh, $f or die "Can't open $f: $!";
 -    return $fh;
 -}
++use Config;
 -END { 1 while unlink @tempfiles }
++BEGIN {
++    require Test::More;
 -sub get_addr {
 -    my $str = shift;
 -    $str =~ /(0x[0-9a-f]+)/i;
 -    return $1;
++    # This test relies on perlio, but the feature being tested does not.
++    # The dependency should eventually be purged and use something like
++    # Tie::Handle instead.
++    if( $Config{useperlio} ) {
++        Test::More->import(tests => 21);
++    }
++    else {
++        Test::More->import('skip_all');
++    }
+ }
+ sub fooinc {
+     my ($self, $filename) = @_;
+     if (substr($filename,0,3) eq 'Foo') {
 -      return get_temp_fh($filename);
++        open my $fh, '<', \("package ".substr($filename,0,-3)."; 1;");
++        return $fh;
+     }
+     else {
+         return undef;
+     }
+ }
+ push @INC, \&fooinc;
+ ok( !eval { require Bar; 1 },      'Trying non-magic package' );
+ ok( eval { require Foo; 1 },       'require() magic via code ref'  ); 
+ ok( exists $INC{'Foo.pm'},         '  %INC sees it' );
 -is( get_addr($INC{'Foo.pm'}), get_addr(\&fooinc),
 -                                 '  key is correct in %INC' );
+ ok( eval "use Foo1; 1;",           'use()' );  
+ ok( exists $INC{'Foo1.pm'},        '  %INC sees it' );
 -is( get_addr($INC{'Foo1.pm'}), get_addr(\&fooinc),
 -                                 '  key is correct in %INC' );
+ ok( eval { do 'Foo2.pl'; 1 },      'do()' ); 
+ ok( exists $INC{'Foo2.pl'},        '  %INC sees it' );
 -is( get_addr($INC{'Foo2.pl'}), get_addr(\&fooinc),
 -                                 '  key is correct in %INC' );
+ pop @INC;
+ sub fooinc2 {
+     my ($self, $filename) = @_;
+     if (substr($filename, 0, length($self->[1])) eq $self->[1]) {
 -      return get_temp_fh($filename);
++        open my $fh, '<', \("package ".substr($filename,0,-3)."; 1;");
++        return $fh;
+     }
+     else {
+         return undef;
+     }
+ }
 -my $arrayref = [ \&fooinc2, 'Bar' ];
 -push @INC, $arrayref;
++push @INC, [ \&fooinc2, 'Bar' ];
+ ok( eval { require Foo; 1; },     'Originally loaded packages preserved' );
+ ok( !eval { require Foo3; 1; },   'Original magic INC purged' );
+ ok( eval { require Bar; 1 },      'require() magic via array ref' );
+ ok( exists $INC{'Bar.pm'},        '  %INC sees it' );
 -is( get_addr($INC{'Bar.pm'}), get_addr($arrayref),
 -                                 '  key is correct in %INC' );
+ ok( eval "use Bar1; 1;",          'use()' );
+ ok( exists $INC{'Bar1.pm'},       '  %INC sees it' );
 -is( get_addr($INC{'Bar1.pm'}), get_addr($arrayref),
 -                                 '  key is correct in %INC' );
+ ok( eval { do 'Bar2.pl'; 1 },     'do()' );
+ ok( exists $INC{'Bar2.pl'},       '  %INC sees it' );
 -is( get_addr($INC{'Bar2.pl'}), get_addr($arrayref),
 -                                 '  key is correct in %INC' );
+ pop @INC;
+ sub FooLoader::INC {
+     my ($self, $filename) = @_;
+     if (substr($filename,0,4) eq 'Quux') {
 -      return get_temp_fh($filename);
++        open my $fh, '<', \("package ".substr($filename,0,-3)."; 1;");
++        return $fh;
+     }
+     else {
+         return undef;
+     }
+ }
 -my $href = bless( {}, 'FooLoader' );
 -push @INC, $href;
++push @INC, bless( {}, 'FooLoader' );
+ ok( eval { require Quux; 1 },      'require() magic via hash object' );
+ ok( exists $INC{'Quux.pm'},        '  %INC sees it' );
 -is( get_addr($INC{'Quux.pm'}), get_addr($href),
 -                                 '  key is correct in %INC' );
+ pop @INC;
 -my $aref = bless( [], 'FooLoader' );
 -push @INC, $aref;
++push @INC, bless( [], 'FooLoader' );
+ ok( eval { require Quux1; 1 },     'require() magic via array object' );
+ ok( exists $INC{'Quux1.pm'},       '  %INC sees it' );
 -is( get_addr($INC{'Quux1.pm'}), get_addr($aref),
 -                                 '  key is correct in %INC' );
+ pop @INC;
 -my $sref = bless( \(my $x = 1), 'FooLoader' );
 -push @INC, $sref;
++push @INC, bless( \(my $x = 1), 'FooLoader' );
+ ok( eval { require Quux2; 1 },     'require() magic via scalar object' );
+ ok( exists $INC{'Quux2.pm'},       '  %INC sees it' );
 -is( get_addr($INC{'Quux2.pm'}), get_addr($sref),
 -                                 '  key is correct in %INC' );
+ pop @INC;