This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline
authorNick Ing-Simmons <nik@tiuk.ti.com>
Mon, 3 Sep 2001 06:20:06 +0000 (06:20 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Mon, 3 Sep 2001 06:20:06 +0000 (06:20 +0000)
p4raw-id: //depot/perlio@11835

objXSUB.h [new file with mode: 0644]
pod/perlapi.pod
t/op/inccode.t
t/op/utf8decode.t [changed mode: 0644->0755]

diff --git a/objXSUB.h b/objXSUB.h
new file mode 100644 (file)
index 0000000..d9d73b7
--- /dev/null
+++ b/objXSUB.h
@@ -0,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_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_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_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_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_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_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_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__ */
index dc7f320..46dd82b 100644 (file)
@@ -2183,22 +2183,22 @@ version which guarantees to evaluate sv only once.
 =for hackers
 Found in file sv.h
 
-=item SvIVx
+=item SvIVX
 
-Coerces the given SV to an integer and returns it. Guarantees to evaluate
-sv only once. Use the more efficent C<SvIV> otherwise.
+Returns the raw value in the SV's IV slot, without checks or conversions.
+Only use when you are sure SvIOK is true. See also C<SvIV()>.
 
-       IV      SvIVx(SV* sv)
+       IV      SvIVX(SV* sv)
 
 =for hackers
 Found in file sv.h
 
-=item SvIVX
+=item SvIVx
 
-Returns the raw value in the SV's IV slot, without checks or conversions.
-Only use when you are sure SvIOK is true. See also C<SvIV()>.
+Coerces the given SV to an integer and returns it. Guarantees to evaluate
+sv only once. Use the more efficent C<SvIV> otherwise.
 
-       IV      SvIVX(SV* sv)
+       IV      SvIVx(SV* sv)
 
 =for hackers
 Found in file sv.h
index 95ee7c0..85a235d 100644 (file)
@@ -7,34 +7,27 @@ BEGIN {
     @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;
@@ -47,18 +40,12 @@ 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;
 
@@ -66,72 +53,58 @@ 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;
old mode 100644 (file)
new mode 100755 (executable)