phase 1 of somewhat major rearrangement of PERL_OBJECT stuff

(objpp.h is gone, embed.pl now does some of that); objXSUB.h
should soon be automated also; the global variables that
escaped the PL_foo conversion are now reined in; renamed
MAGIC in regcomp.h to REG_MAGIC to avoid collision with the
type of same name; duplicated lists of pp_things in various
places is now gone; result has only been tested on win32

p4raw-id: //depot/perl@2133

1 files changed, 8 insertions, 1406 deletions

diff --git a/globals.c b/globals.c
index 1d8ef9272d..b8d7c38c99 100644
--- a/globals.c
+++ b/globals.c
@@ -2,1412 +2,6 @@
 #include "perl.h"
 
 #ifdef PERL_OBJECT
-#undef  pp_null
-#define pp_null		CPerlObj::Perl_pp_null
-#undef  pp_stub		
-#define pp_stub		CPerlObj::Perl_pp_stub
-#undef  pp_scalar	
-#define pp_scalar	CPerlObj::Perl_pp_scalar
-#undef  pp_pushmark	
-#define pp_pushmark	CPerlObj::Perl_pp_pushmark
-#undef  pp_wantarray	
-#define pp_wantarray	CPerlObj::Perl_pp_wantarray
-#undef  pp_const	
-#define pp_const	CPerlObj::Perl_pp_const
-#undef  pp_gvsv		
-#define pp_gvsv		CPerlObj::Perl_pp_gvsv	
-#undef  pp_gv		
-#define pp_gv		CPerlObj::Perl_pp_gv	
-#undef  pp_gelem	
-#define pp_gelem	CPerlObj::Perl_pp_gelem
-#undef  pp_padsv	
-#define pp_padsv	CPerlObj::Perl_pp_padsv
-#undef  pp_padav	
-#define pp_padav	CPerlObj::Perl_pp_padav
-#undef  pp_padhv	
-#define pp_padhv	CPerlObj::Perl_pp_padhv
-#undef  pp_padany	
-#define pp_padany	CPerlObj::Perl_pp_padany
-#undef  pp_pushre	
-#define pp_pushre	CPerlObj::Perl_pp_pushre
-#undef  pp_rv2gv	
-#define pp_rv2gv	CPerlObj::Perl_pp_rv2gv
-#undef  pp_rv2sv	
-#define pp_rv2sv	CPerlObj::Perl_pp_rv2sv
-#undef  pp_av2arylen	
-#define pp_av2arylen	CPerlObj::Perl_pp_av2arylen
-#undef  pp_rv2cv	
-#define pp_rv2cv	CPerlObj::Perl_pp_rv2cv
-#undef  pp_anoncode	
-#define pp_anoncode	CPerlObj::Perl_pp_anoncode
-#undef  pp_prototype	
-#define pp_prototype	CPerlObj::Perl_pp_prototype
-#undef  pp_refgen	
-#define pp_refgen	CPerlObj::Perl_pp_refgen
-#undef  pp_srefgen	
-#define pp_srefgen	CPerlObj::Perl_pp_srefgen
-#undef  pp_ref		
-#define pp_ref		CPerlObj::Perl_pp_ref	
-#undef  pp_bless	
-#define pp_bless	CPerlObj::Perl_pp_bless
-#undef  pp_backtick	
-#define pp_backtick	CPerlObj::Perl_pp_backtick
-#undef  pp_glob		
-#define pp_glob		CPerlObj::Perl_pp_glob	
-#undef  pp_readline	
-#define pp_readline	CPerlObj::Perl_pp_readline
-#undef  pp_rcatline	
-#define pp_rcatline	CPerlObj::Perl_pp_rcatline
-#undef  pp_regcmaybe	
-#define pp_regcmaybe	CPerlObj::Perl_pp_regcmaybe
-#undef  pp_regcreset	
-#define pp_regcreset	CPerlObj::Perl_pp_regcreset
-#undef  pp_regcomp	
-#define pp_regcomp	CPerlObj::Perl_pp_regcomp
-#undef  pp_match	
-#define pp_match	CPerlObj::Perl_pp_match
-#undef  pp_qr
-#define pp_qr		CPerlObj::Perl_pp_qr
-#undef  pp_subst	
-#define pp_subst	CPerlObj::Perl_pp_subst
-#undef  pp_substcont	
-#define pp_substcont	CPerlObj::Perl_pp_substcont
-#undef  pp_trans	
-#define pp_trans	CPerlObj::Perl_pp_trans
-#undef  pp_sassign	
-#define pp_sassign	CPerlObj::Perl_pp_sassign
-#undef  pp_aassign	
-#define pp_aassign	CPerlObj::Perl_pp_aassign
-#undef  pp_chop		
-#define pp_chop		CPerlObj::Perl_pp_chop	
-#undef  pp_schop	
-#define pp_schop	CPerlObj::Perl_pp_schop
-#undef  pp_chomp	
-#define pp_chomp	CPerlObj::Perl_pp_chomp
-#undef  pp_schomp	
-#define pp_schomp	CPerlObj::Perl_pp_schomp
-#undef  pp_defined	
-#define pp_defined	CPerlObj::Perl_pp_defined
-#undef  pp_undef	
-#define pp_undef	CPerlObj::Perl_pp_undef
-#undef  pp_study	
-#define pp_study	CPerlObj::Perl_pp_study
-#undef  pp_pos		
-#define pp_pos		CPerlObj::Perl_pp_pos	
-#undef  pp_preinc	
-#define pp_preinc	CPerlObj::Perl_pp_preinc
-#undef  pp_i_preinc	
-#define pp_i_preinc	CPerlObj::Perl_pp_preinc
-#undef  pp_predec	
-#define pp_predec	CPerlObj::Perl_pp_predec
-#undef  pp_i_predec	
-#define pp_i_predec	CPerlObj::Perl_pp_predec
-#undef  pp_postinc	
-#define pp_postinc	CPerlObj::Perl_pp_postinc
-#undef  pp_i_postinc	
-#define pp_i_postinc	CPerlObj::Perl_pp_postinc
-#undef  pp_postdec	
-#define pp_postdec	CPerlObj::Perl_pp_postdec
-#undef  pp_i_postdec	
-#define pp_i_postdec	CPerlObj::Perl_pp_postdec
-#undef  pp_pow		
-#define pp_pow		CPerlObj::Perl_pp_pow	
-#undef  pp_multiply	
-#define pp_multiply	CPerlObj::Perl_pp_multiply
-#undef  pp_i_multiply	
-#define pp_i_multiply	CPerlObj::Perl_pp_i_multiply
-#undef  pp_divide	
-#define pp_divide	CPerlObj::Perl_pp_divide
-#undef  pp_i_divide	
-#define pp_i_divide	CPerlObj::Perl_pp_i_divide
-#undef  pp_modulo	
-#define pp_modulo	CPerlObj::Perl_pp_modulo
-#undef  pp_i_modulo	
-#define pp_i_modulo	CPerlObj::Perl_pp_i_modulo
-#undef  pp_repeat	
-#define pp_repeat	CPerlObj::Perl_pp_repeat
-#undef  pp_add		
-#define pp_add		CPerlObj::Perl_pp_add	
-#undef  pp_i_add	
-#define pp_i_add	CPerlObj::Perl_pp_i_add
-#undef  pp_subtract	
-#define pp_subtract	CPerlObj::Perl_pp_subtract
-#undef  pp_i_subtract	
-#define pp_i_subtract	CPerlObj::Perl_pp_i_subtract
-#undef  pp_concat	
-#define pp_concat	CPerlObj::Perl_pp_concat
-#undef  pp_stringify	
-#define pp_stringify	CPerlObj::Perl_pp_stringify
-#undef  pp_left_shift	
-#define pp_left_shift	CPerlObj::Perl_pp_left_shift
-#undef  pp_right_shift	
-#define pp_right_shift	CPerlObj::Perl_pp_right_shift
-#undef  pp_lt		
-#define pp_lt		CPerlObj::Perl_pp_lt	
-#undef  pp_i_lt		
-#define pp_i_lt		CPerlObj::Perl_pp_i_lt	
-#undef  pp_gt		
-#define pp_gt		CPerlObj::Perl_pp_gt	
-#undef  pp_i_gt		
-#define pp_i_gt		CPerlObj::Perl_pp_i_gt	
-#undef  pp_le		
-#define pp_le		CPerlObj::Perl_pp_le	
-#undef  pp_i_le		
-#define pp_i_le		CPerlObj::Perl_pp_i_le	
-#undef  pp_ge		
-#define pp_ge		CPerlObj::Perl_pp_ge	
-#undef  pp_i_ge		
-#define pp_i_ge		CPerlObj::Perl_pp_i_ge	
-#undef  pp_eq		
-#define pp_eq		CPerlObj::Perl_pp_eq	
-#undef  pp_i_eq		
-#define pp_i_eq		CPerlObj::Perl_pp_i_eq	
-#undef  pp_ne		
-#define pp_ne		CPerlObj::Perl_pp_ne	
-#undef  pp_i_ne		
-#define pp_i_ne		CPerlObj::Perl_pp_i_ne	
-#undef  pp_ncmp		
-#define pp_ncmp		CPerlObj::Perl_pp_ncmp	
-#undef  pp_i_ncmp	
-#define pp_i_ncmp	CPerlObj::Perl_pp_i_ncmp
-#undef  pp_slt		
-#define pp_slt		CPerlObj::Perl_pp_slt	
-#undef  pp_sgt		
-#define pp_sgt		CPerlObj::Perl_pp_sgt	
-#undef  pp_sle		
-#define pp_sle		CPerlObj::Perl_pp_sle	
-#undef  pp_sge		
-#define pp_sge		CPerlObj::Perl_pp_sge	
-#undef  pp_seq		
-#define pp_seq		CPerlObj::Perl_pp_seq	
-#undef  pp_sne		
-#define pp_sne		CPerlObj::Perl_pp_sne	
-#undef  pp_scmp		
-#define pp_scmp		CPerlObj::Perl_pp_scmp	
-#undef  pp_bit_and	
-#define pp_bit_and	CPerlObj::Perl_pp_bit_and
-#undef  pp_bit_xor	
-#define pp_bit_xor	CPerlObj::Perl_pp_bit_xor
-#undef  pp_bit_or	
-#define pp_bit_or	CPerlObj::Perl_pp_bit_or
-#undef  pp_negate	
-#define pp_negate	CPerlObj::Perl_pp_negate
-#undef  pp_i_negate	
-#define pp_i_negate	CPerlObj::Perl_pp_i_negate
-#undef  pp_not		
-#define pp_not		CPerlObj::Perl_pp_not	
-#undef  pp_complement	
-#define pp_complement	CPerlObj::Perl_pp_complement
-#undef  pp_atan2	
-#define pp_atan2	CPerlObj::Perl_pp_atan2
-#undef  pp_sin		
-#define pp_sin		CPerlObj::Perl_pp_sin	
-#undef  pp_cos		
-#define pp_cos		CPerlObj::Perl_pp_cos	
-#undef  pp_rand		
-#define pp_rand		CPerlObj::Perl_pp_rand	
-#undef  pp_srand	
-#define pp_srand	CPerlObj::Perl_pp_srand
-#undef  pp_exp		
-#define pp_exp		CPerlObj::Perl_pp_exp	
-#undef  pp_log		
-#define pp_log		CPerlObj::Perl_pp_log	
-#undef  pp_sqrt		
-#define pp_sqrt		CPerlObj::Perl_pp_sqrt	
-#undef  pp_int		
-#define pp_int		CPerlObj::Perl_pp_int	
-#undef  pp_hex		
-#define pp_hex		CPerlObj::Perl_pp_hex	
-#undef  pp_oct		
-#define pp_oct		CPerlObj::Perl_pp_oct	
-#undef  pp_abs		
-#define pp_abs		CPerlObj::Perl_pp_abs	
-#undef  pp_length	
-#define pp_length	CPerlObj::Perl_pp_length
-#undef  pp_substr	
-#define pp_substr	CPerlObj::Perl_pp_substr
-#undef  pp_vec		
-#define pp_vec		CPerlObj::Perl_pp_vec	
-#undef  pp_index	
-#define pp_index	CPerlObj::Perl_pp_index
-#undef  pp_rindex	
-#define pp_rindex	CPerlObj::Perl_pp_rindex
-#undef  pp_sprintf	
-#define pp_sprintf	CPerlObj::Perl_pp_sprintf
-#undef  pp_formline	
-#define pp_formline	CPerlObj::Perl_pp_formline
-#undef  pp_ord		
-#define pp_ord		CPerlObj::Perl_pp_ord	
-#undef  pp_chr		
-#define pp_chr		CPerlObj::Perl_pp_chr	
-#undef  pp_crypt	
-#define pp_crypt	CPerlObj::Perl_pp_crypt
-#undef  pp_ucfirst	
-#define pp_ucfirst	CPerlObj::Perl_pp_ucfirst
-#undef  pp_lcfirst	
-#define pp_lcfirst	CPerlObj::Perl_pp_lcfirst
-#undef  pp_uc		
-#define pp_uc		CPerlObj::Perl_pp_uc	
-#undef  pp_lc		
-#define pp_lc		CPerlObj::Perl_pp_lc	
-#undef  pp_quotemeta	
-#define pp_quotemeta	CPerlObj::Perl_pp_quotemeta
-#undef  pp_rv2av	
-#define pp_rv2av	CPerlObj::Perl_pp_rv2av
-#undef  pp_aelemfast	
-#define pp_aelemfast	CPerlObj::Perl_pp_aelemfast
-#undef  pp_aelem	
-#define pp_aelem	CPerlObj::Perl_pp_aelem
-#undef  pp_aslice	
-#define pp_aslice	CPerlObj::Perl_pp_aslice
-#undef  pp_each		
-#define pp_each		CPerlObj::Perl_pp_each	
-#undef  pp_values	
-#define pp_values	CPerlObj::Perl_pp_values
-#undef  pp_keys		
-#define pp_keys		CPerlObj::Perl_pp_keys	
-#undef  pp_delete	
-#define pp_delete	CPerlObj::Perl_pp_delete
-#undef  pp_exists	
-#define pp_exists	CPerlObj::Perl_pp_exists
-#undef  pp_rv2hv	
-#define pp_rv2hv	CPerlObj::Perl_pp_rv2hv
-#undef  pp_helem	
-#define pp_helem	CPerlObj::Perl_pp_helem
-#undef  pp_hslice	
-#define pp_hslice	CPerlObj::Perl_pp_hslice
-#undef  pp_unpack	
-#define pp_unpack	CPerlObj::Perl_pp_unpack
-#undef  pp_pack		
-#define pp_pack		CPerlObj::Perl_pp_pack	
-#undef  pp_split	
-#define pp_split	CPerlObj::Perl_pp_split
-#undef  pp_join		
-#define pp_join		CPerlObj::Perl_pp_join	
-#undef  pp_list		
-#define pp_list		CPerlObj::Perl_pp_list	
-#undef  pp_lslice	
-#define pp_lslice	CPerlObj::Perl_pp_lslice
-#undef  pp_anonlist	
-#define pp_anonlist	CPerlObj::Perl_pp_anonlist
-#undef  pp_anonhash	
-#define pp_anonhash	CPerlObj::Perl_pp_anonhash
-#undef  pp_splice	
-#define pp_splice	CPerlObj::Perl_pp_splice
-#undef  pp_push		
-#define pp_push		CPerlObj::Perl_pp_push	
-#undef  pp_pop		
-#define pp_pop		CPerlObj::Perl_pp_pop	
-#undef  pp_shift	
-#define pp_shift	CPerlObj::Perl_pp_shift
-#undef  pp_unshift	
-#define pp_unshift	CPerlObj::Perl_pp_unshift
-#undef  pp_sort		
-#define pp_sort		CPerlObj::Perl_pp_sort	
-#undef  pp_reverse	
-#define pp_reverse	CPerlObj::Perl_pp_reverse
-#undef  pp_grepstart	
-#define pp_grepstart	CPerlObj::Perl_pp_grepstart
-#undef  pp_grepwhile	
-#define pp_grepwhile	CPerlObj::Perl_pp_grepwhile
-#undef  pp_mapstart	
-#define pp_mapstart	CPerlObj::Perl_pp_mapstart
-#undef  pp_mapwhile	
-#define pp_mapwhile	CPerlObj::Perl_pp_mapwhile
-#undef  pp_range	
-#define pp_range	CPerlObj::Perl_pp_range
-#undef  pp_flip		
-#define pp_flip		CPerlObj::Perl_pp_flip	
-#undef  pp_flop		
-#define pp_flop		CPerlObj::Perl_pp_flop	
-#undef  pp_and		
-#define pp_and		CPerlObj::Perl_pp_and	
-#undef  pp_or		
-#define pp_or		CPerlObj::Perl_pp_or	
-#undef  pp_xor		
-#define pp_xor		CPerlObj::Perl_pp_xor	
-#undef  pp_cond_expr	
-#define pp_cond_expr	CPerlObj::Perl_pp_cond_expr
-#undef  pp_andassign	
-#define pp_andassign	CPerlObj::Perl_pp_andassign
-#undef  pp_orassign	
-#define pp_orassign	CPerlObj::Perl_pp_orassign
-#undef  pp_method	
-#define pp_method	CPerlObj::Perl_pp_method
-#undef  pp_entersub	
-#define pp_entersub	CPerlObj::Perl_pp_entersub
-#undef  pp_leavesub	
-#define pp_leavesub	CPerlObj::Perl_pp_leavesub
-#undef  pp_caller	
-#define pp_caller	CPerlObj::Perl_pp_caller
-#undef  pp_warn		
-#define pp_warn		CPerlObj::Perl_pp_warn	
-#undef  pp_die		
-#define pp_die		CPerlObj::Perl_pp_die	
-#undef  pp_reset	
-#define pp_reset	CPerlObj::Perl_pp_reset
-#undef  pp_lineseq	
-#define pp_lineseq	CPerlObj::Perl_pp_lineseq
-#undef  pp_nextstate	
-#define pp_nextstate	CPerlObj::Perl_pp_nextstate
-#undef  pp_dbstate	
-#define pp_dbstate	CPerlObj::Perl_pp_dbstate
-#undef  pp_unstack	
-#define pp_unstack	CPerlObj::Perl_pp_unstack
-#undef  pp_enter	
-#define pp_enter	CPerlObj::Perl_pp_enter
-#undef  pp_leave	
-#define pp_leave	CPerlObj::Perl_pp_leave
-#undef  pp_scope	
-#define pp_scope	CPerlObj::Perl_pp_scope
-#undef  pp_enteriter	
-#define pp_enteriter	CPerlObj::Perl_pp_enteriter
-#undef  pp_iter		
-#define pp_iter		CPerlObj::Perl_pp_iter	
-#undef  pp_enterloop	
-#define pp_enterloop	CPerlObj::Perl_pp_enterloop
-#undef  pp_leaveloop	
-#define pp_leaveloop	CPerlObj::Perl_pp_leaveloop
-#undef  pp_return	
-#define pp_return	CPerlObj::Perl_pp_return
-#undef  pp_last		
-#define pp_last		CPerlObj::Perl_pp_last	
-#undef  pp_next		
-#define pp_next		CPerlObj::Perl_pp_next	
-#undef  pp_redo		
-#define pp_redo		CPerlObj::Perl_pp_redo	
-#undef  pp_dump		
-#define pp_dump		CPerlObj::Perl_pp_dump	
-#undef  pp_goto		
-#define pp_goto		CPerlObj::Perl_pp_goto	
-#undef  pp_exit		
-#define pp_exit		CPerlObj::Perl_pp_exit	
-#undef  pp_open		
-#define pp_open		CPerlObj::Perl_pp_open	
-#undef  pp_close	
-#define pp_close	CPerlObj::Perl_pp_close
-#undef  pp_pipe_op	
-#define pp_pipe_op	CPerlObj::Perl_pp_pipe_op
-#undef  pp_fileno	
-#define pp_fileno	CPerlObj::Perl_pp_fileno
-#undef  pp_umask	
-#define pp_umask	CPerlObj::Perl_pp_umask
-#undef  pp_binmode	
-#define pp_binmode	CPerlObj::Perl_pp_binmode
-#undef  pp_tie		
-#define pp_tie		CPerlObj::Perl_pp_tie	
-#undef  pp_untie	
-#define pp_untie	CPerlObj::Perl_pp_untie
-#undef  pp_tied		
-#define pp_tied		CPerlObj::Perl_pp_tied	
-#undef  pp_dbmopen	
-#define pp_dbmopen	CPerlObj::Perl_pp_dbmopen
-#undef  pp_dbmclose	
-#define pp_dbmclose	CPerlObj::Perl_pp_dbmclose
-#undef  pp_sselect	
-#define pp_sselect	CPerlObj::Perl_pp_sselect
-#undef  pp_select	
-#define pp_select	CPerlObj::Perl_pp_select
-#undef  pp_getc		
-#define pp_getc		CPerlObj::Perl_pp_getc	
-#undef  pp_read		
-#define pp_read		CPerlObj::Perl_pp_read	
-#undef  pp_enterwrite	
-#define pp_enterwrite	CPerlObj::Perl_pp_enterwrite
-#undef  pp_leavewrite	
-#define pp_leavewrite	CPerlObj::Perl_pp_leavewrite
-#undef  pp_prtf		
-#define pp_prtf		CPerlObj::Perl_pp_prtf	
-#undef  pp_print	
-#define pp_print	CPerlObj::Perl_pp_print
-#undef  pp_sysopen	
-#define pp_sysopen	CPerlObj::Perl_pp_sysopen
-#undef  pp_sysseek	
-#define pp_sysseek	CPerlObj::Perl_pp_sysseek
-#undef  pp_sysread	
-#define pp_sysread	CPerlObj::Perl_pp_sysread
-#undef  pp_syswrite	
-#define pp_syswrite	CPerlObj::Perl_pp_syswrite
-#undef  pp_send		
-#define pp_send		CPerlObj::Perl_pp_send	
-#undef  pp_recv		
-#define pp_recv		CPerlObj::Perl_pp_recv	
-#undef  pp_eof		
-#define pp_eof		CPerlObj::Perl_pp_eof	
-#undef  pp_tell		
-#define pp_tell		CPerlObj::Perl_pp_tell	
-#undef  pp_seek		
-#define pp_seek		CPerlObj::Perl_pp_seek	
-#undef  pp_truncate	
-#define pp_truncate	CPerlObj::Perl_pp_truncate
-#undef  pp_fcntl	
-#define pp_fcntl	CPerlObj::Perl_pp_fcntl
-#undef  pp_ioctl	
-#define pp_ioctl	CPerlObj::Perl_pp_ioctl
-#undef  pp_flock	
-#define pp_flock	CPerlObj::Perl_pp_flock
-#undef  pp_socket	
-#define pp_socket	CPerlObj::Perl_pp_socket
-#undef  pp_sockpair	
-#define pp_sockpair	CPerlObj::Perl_pp_sockpair
-#undef  pp_bind		
-#define pp_bind		CPerlObj::Perl_pp_bind	
-#undef  pp_connect	
-#define pp_connect	CPerlObj::Perl_pp_connect
-#undef  pp_listen	
-#define pp_listen	CPerlObj::Perl_pp_listen
-#undef  pp_accept	
-#define pp_accept	CPerlObj::Perl_pp_accept
-#undef  pp_shutdown	
-#define pp_shutdown	CPerlObj::Perl_pp_shutdown
-#undef  pp_gsockopt	
-#define pp_gsockopt	CPerlObj::Perl_pp_gsockopt
-#undef  pp_ssockopt	
-#define pp_ssockopt	CPerlObj::Perl_pp_ssockopt
-#undef  pp_getsockname	
-#define pp_getsockname	CPerlObj::Perl_pp_getsockname
-#undef  pp_getpeername	
-#define pp_getpeername	CPerlObj::Perl_pp_getpeername
-#undef  pp_lstat	
-#define pp_lstat	CPerlObj::Perl_pp_lstat
-#undef  pp_stat		
-#define pp_stat		CPerlObj::Perl_pp_stat	
-#undef  pp_ftrread	
-#define pp_ftrread	CPerlObj::Perl_pp_ftrread
-#undef  pp_ftrwrite	
-#define pp_ftrwrite	CPerlObj::Perl_pp_ftrwrite
-#undef  pp_ftrexec	
-#define pp_ftrexec	CPerlObj::Perl_pp_ftrexec
-#undef  pp_fteread	
-#define pp_fteread	CPerlObj::Perl_pp_fteread
-#undef  pp_ftewrite	
-#define pp_ftewrite	CPerlObj::Perl_pp_ftewrite
-#undef  pp_fteexec	
-#define pp_fteexec	CPerlObj::Perl_pp_fteexec
-#undef  pp_ftis		
-#define pp_ftis		CPerlObj::Perl_pp_ftis	
-#undef  pp_fteowned	
-#define pp_fteowned	CPerlObj::Perl_pp_fteowned
-#undef  pp_ftrowned	
-#define pp_ftrowned	CPerlObj::Perl_pp_ftrowned
-#undef  pp_ftzero	
-#define pp_ftzero	CPerlObj::Perl_pp_ftzero
-#undef  pp_ftsize	
-#define pp_ftsize	CPerlObj::Perl_pp_ftsize
-#undef  pp_ftmtime	
-#define pp_ftmtime	CPerlObj::Perl_pp_ftmtime
-#undef  pp_ftatime	
-#define pp_ftatime	CPerlObj::Perl_pp_ftatime
-#undef  pp_ftctime	
-#define pp_ftctime	CPerlObj::Perl_pp_ftctime
-#undef  pp_ftsock	
-#define pp_ftsock	CPerlObj::Perl_pp_ftsock
-#undef  pp_ftchr	
-#define pp_ftchr	CPerlObj::Perl_pp_ftchr
-#undef  pp_ftblk	
-#define pp_ftblk	CPerlObj::Perl_pp_ftblk
-#undef  pp_ftfile	
-#define pp_ftfile	CPerlObj::Perl_pp_ftfile
-#undef  pp_ftdir	
-#define pp_ftdir	CPerlObj::Perl_pp_ftdir
-#undef  pp_ftpipe	
-#define pp_ftpipe	CPerlObj::Perl_pp_ftpipe
-#undef  pp_ftlink	
-#define pp_ftlink	CPerlObj::Perl_pp_ftlink
-#undef  pp_ftsuid	
-#define pp_ftsuid	CPerlObj::Perl_pp_ftsuid
-#undef  pp_ftsgid	
-#define pp_ftsgid	CPerlObj::Perl_pp_ftsgid
-#undef  pp_ftsvtx	
-#define pp_ftsvtx	CPerlObj::Perl_pp_ftsvtx
-#undef  pp_fttty	
-#define pp_fttty	CPerlObj::Perl_pp_fttty
-#undef  pp_fttext	
-#define pp_fttext	CPerlObj::Perl_pp_fttext
-#undef  pp_ftbinary	
-#define pp_ftbinary	CPerlObj::Perl_pp_ftbinary
-#undef  pp_chdir	
-#define pp_chdir	CPerlObj::Perl_pp_chdir
-#undef  pp_chown	
-#define pp_chown	CPerlObj::Perl_pp_chown
-#undef  pp_chroot	
-#define pp_chroot	CPerlObj::Perl_pp_chroot
-#undef  pp_unlink	
-#define pp_unlink	CPerlObj::Perl_pp_unlink
-#undef  pp_chmod	
-#define pp_chmod	CPerlObj::Perl_pp_chmod
-#undef  pp_utime	
-#define pp_utime	CPerlObj::Perl_pp_utime
-#undef  pp_rename	
-#define pp_rename	CPerlObj::Perl_pp_rename
-#undef  pp_link		
-#define pp_link		CPerlObj::Perl_pp_link	
-#undef  pp_symlink	
-#define pp_symlink	CPerlObj::Perl_pp_symlink
-#undef  pp_readlink	
-#define pp_readlink	CPerlObj::Perl_pp_readlink
-#undef  pp_mkdir	
-#define pp_mkdir	CPerlObj::Perl_pp_mkdir
-#undef  pp_rmdir	
-#define pp_rmdir	CPerlObj::Perl_pp_rmdir
-#undef  pp_open_dir	
-#define pp_open_dir	CPerlObj::Perl_pp_open_dir
-#undef  pp_readdir	
-#define pp_readdir	CPerlObj::Perl_pp_readdir
-#undef  pp_telldir	
-#define pp_telldir	CPerlObj::Perl_pp_telldir
-#undef  pp_seekdir	
-#define pp_seekdir	CPerlObj::Perl_pp_seekdir
-#undef  pp_rewinddir	
-#define pp_rewinddir	CPerlObj::Perl_pp_rewinddir
-#undef  pp_closedir	
-#define pp_closedir	CPerlObj::Perl_pp_closedir
-#undef  pp_fork		
-#define pp_fork		CPerlObj::Perl_pp_fork	
-#undef  pp_wait		
-#define pp_wait		CPerlObj::Perl_pp_wait	
-#undef  pp_waitpid	
-#define pp_waitpid	CPerlObj::Perl_pp_waitpid
-#undef  pp_system	
-#define pp_system	CPerlObj::Perl_pp_system
-#undef  pp_exec		
-#define pp_exec		CPerlObj::Perl_pp_exec	
-#undef  pp_kill		
-#define pp_kill		CPerlObj::Perl_pp_kill	
-#undef  pp_getppid	
-#define pp_getppid	CPerlObj::Perl_pp_getppid
-#undef  pp_getpgrp	
-#define pp_getpgrp	CPerlObj::Perl_pp_getpgrp
-#undef  pp_setpgrp	
-#define pp_setpgrp	CPerlObj::Perl_pp_setpgrp
-#undef  pp_getpriority	
-#define pp_getpriority	CPerlObj::Perl_pp_getpriority
-#undef  pp_setpriority	
-#define pp_setpriority	CPerlObj::Perl_pp_setpriority
-#undef  pp_time		
-#define pp_time		CPerlObj::Perl_pp_time	
-#undef  pp_tms		
-#define pp_tms		CPerlObj::Perl_pp_tms	
-#undef  pp_localtime	
-#define pp_localtime	CPerlObj::Perl_pp_localtime
-#undef  pp_gmtime	
-#define pp_gmtime	CPerlObj::Perl_pp_gmtime
-#undef  pp_alarm	
-#define pp_alarm	CPerlObj::Perl_pp_alarm
-#undef  pp_sleep	
-#define pp_sleep	CPerlObj::Perl_pp_sleep
-#undef  pp_shmget	
-#define pp_shmget	CPerlObj::Perl_pp_shmget
-#undef  pp_shmctl	
-#define pp_shmctl	CPerlObj::Perl_pp_shmctl
-#undef  pp_shmread	
-#define pp_shmread	CPerlObj::Perl_pp_shmread
-#undef  pp_shmwrite	
-#define pp_shmwrite	CPerlObj::Perl_pp_shmwrite
-#undef  pp_msgget	
-#define pp_msgget	CPerlObj::Perl_pp_msgget
-#undef  pp_msgctl	
-#define pp_msgctl	CPerlObj::Perl_pp_msgctl
-#undef  pp_msgsnd	
-#define pp_msgsnd	CPerlObj::Perl_pp_msgsnd
-#undef  pp_msgrcv	
-#define pp_msgrcv	CPerlObj::Perl_pp_msgrcv
-#undef  pp_semget	
-#define pp_semget	CPerlObj::Perl_pp_semget
-#undef  pp_semctl	
-#define pp_semctl	CPerlObj::Perl_pp_semctl
-#undef  pp_semop	
-#define pp_semop	CPerlObj::Perl_pp_semop
-#undef  pp_require	
-#define pp_require	CPerlObj::Perl_pp_require
-#undef  pp_dofile	
-#define pp_dofile	CPerlObj::Perl_pp_dofile
-#undef  pp_entereval	
-#define pp_entereval	CPerlObj::Perl_pp_entereval
-#undef  pp_leaveeval	
-#define pp_leaveeval	CPerlObj::Perl_pp_leaveeval
-#undef  pp_entertry	
-#define pp_entertry	CPerlObj::Perl_pp_entertry
-#undef  pp_leavetry	
-#define pp_leavetry	CPerlObj::Perl_pp_leavetry
-#undef  pp_ghbyname	
-#define pp_ghbyname	CPerlObj::Perl_pp_ghbyname
-#undef  pp_ghbyaddr	
-#define pp_ghbyaddr	CPerlObj::Perl_pp_ghbyaddr
-#undef  pp_ghostent	
-#define pp_ghostent	CPerlObj::Perl_pp_ghostent
-#undef  pp_gnbyname	
-#define pp_gnbyname	CPerlObj::Perl_pp_gnbyname
-#undef  pp_gnbyaddr	
-#define pp_gnbyaddr	CPerlObj::Perl_pp_gnbyaddr
-#undef  pp_gnetent	
-#define pp_gnetent	CPerlObj::Perl_pp_gnetent
-#undef  pp_gpbyname	
-#define pp_gpbyname	CPerlObj::Perl_pp_gpbyname
-#undef  pp_gpbynumber	
-#define pp_gpbynumber	CPerlObj::Perl_pp_gpbynumber
-#undef  pp_gprotoent	
-#define pp_gprotoent	CPerlObj::Perl_pp_gprotoent
-#undef  pp_gsbyname	
-#define pp_gsbyname	CPerlObj::Perl_pp_gsbyname
-#undef  pp_gsbyport	
-#define pp_gsbyport	CPerlObj::Perl_pp_gsbyport
-#undef  pp_gservent	
-#define pp_gservent	CPerlObj::Perl_pp_gservent
-#undef  pp_shostent	
-#define pp_shostent	CPerlObj::Perl_pp_shostent
-#undef  pp_snetent	
-#define pp_snetent	CPerlObj::Perl_pp_snetent
-#undef  pp_sprotoent	
-#define pp_sprotoent	CPerlObj::Perl_pp_sprotoent
-#undef  pp_sservent	
-#define pp_sservent	CPerlObj::Perl_pp_sservent
-#undef  pp_ehostent	
-#define pp_ehostent	CPerlObj::Perl_pp_ehostent
-#undef  pp_enetent	
-#define pp_enetent	CPerlObj::Perl_pp_enetent
-#undef  pp_eprotoent	
-#define pp_eprotoent	CPerlObj::Perl_pp_eprotoent
-#undef  pp_eservent	
-#define pp_eservent	CPerlObj::Perl_pp_eservent
-#undef  pp_gpwnam	
-#define pp_gpwnam	CPerlObj::Perl_pp_gpwnam
-#undef  pp_gpwuid	
-#define pp_gpwuid	CPerlObj::Perl_pp_gpwuid
-#undef  pp_gpwent	
-#define pp_gpwent	CPerlObj::Perl_pp_gpwent
-#undef  pp_spwent	
-#define pp_spwent	CPerlObj::Perl_pp_spwent
-#undef  pp_epwent	
-#define pp_epwent	CPerlObj::Perl_pp_epwent
-#undef  pp_ggrnam	
-#define pp_ggrnam	CPerlObj::Perl_pp_ggrnam
-#undef  pp_ggrgid	
-#define pp_ggrgid	CPerlObj::Perl_pp_ggrgid
-#undef  pp_ggrent	
-#define pp_ggrent	CPerlObj::Perl_pp_ggrent
-#undef  pp_sgrent	
-#define pp_sgrent	CPerlObj::Perl_pp_sgrent
-#undef  pp_egrent	
-#define pp_egrent	CPerlObj::Perl_pp_egrent
-#undef  pp_getlogin	
-#define pp_getlogin	CPerlObj::Perl_pp_getlogin
-#undef  pp_syscall	
-#define pp_syscall	CPerlObj::Perl_pp_syscall
-#undef  pp_lock		
-#define pp_lock		CPerlObj::Perl_pp_lock	
-#undef  pp_threadsv	
-#define pp_threadsv	CPerlObj::Perl_pp_threadsv
-
-OP * (CPERLscope(*check)[]) _((OP *op)) = {
-	ck_null,	/* null */
-	ck_null,	/* stub */
-	ck_fun,		/* scalar */
-	ck_null,	/* pushmark */
-	ck_null,	/* wantarray */
-	ck_svconst,	/* const */
-	ck_null,	/* gvsv */
-	ck_null,	/* gv */
-	ck_null,	/* gelem */
-	ck_null,	/* padsv */
-	ck_null,	/* padav */
-	ck_null,	/* padhv */
-	ck_null,	/* padany */
-	ck_null,	/* pushre */
-	ck_rvconst,	/* rv2gv */
-	ck_rvconst,	/* rv2sv */
-	ck_null,	/* av2arylen */
-	ck_rvconst,	/* rv2cv */
-	ck_anoncode,	/* anoncode */
-	ck_null,	/* prototype */
-	ck_spair,	/* refgen */
-	ck_null,	/* srefgen */
-	ck_fun,		/* ref */
-	ck_fun,		/* bless */
-	ck_null,	/* backtick */
-	ck_glob,	/* glob */
-	ck_null,	/* readline */
-	ck_null,	/* rcatline */
-	ck_fun,		/* regcmaybe */
-	ck_fun,		/* regcreset */
-	ck_null,	/* regcomp */
-	ck_match,	/* match */
-	ck_match,	/* qr */
-	ck_null,	/* subst */
-	ck_null,	/* substcont */
-	ck_null,	/* trans */
-	ck_null,	/* sassign */
-	ck_null,	/* aassign */
-	ck_spair,	/* chop */
-	ck_null,	/* schop */
-	ck_spair,	/* chomp */
-	ck_null,	/* schomp */
-	ck_rfun,	/* defined */
-	ck_lfun,	/* undef */
-	ck_fun,		/* study */
-	ck_lfun,	/* pos */
-	ck_lfun,	/* preinc */
-	ck_lfun,	/* i_preinc */
-	ck_lfun,	/* predec */
-	ck_lfun,	/* i_predec */
-	ck_lfun,	/* postinc */
-	ck_lfun,	/* i_postinc */
-	ck_lfun,	/* postdec */
-	ck_lfun,	/* i_postdec */
-	ck_null,	/* pow */
-	ck_null,	/* multiply */
-	ck_null,	/* i_multiply */
-	ck_null,	/* divide */
-	ck_null,	/* i_divide */
-	ck_null,	/* modulo */
-	ck_null,	/* i_modulo */
-	ck_repeat,	/* repeat */
-	ck_null,	/* add */
-	ck_null,	/* i_add */
-	ck_null,	/* subtract */
-	ck_null,	/* i_subtract */
-	ck_concat,	/* concat */
-	ck_fun,		/* stringify */
-	ck_bitop,	/* left_shift */
-	ck_bitop,	/* right_shift */
-	ck_null,	/* lt */
-	ck_null,	/* i_lt */
-	ck_null,	/* gt */
-	ck_null,	/* i_gt */
-	ck_null,	/* le */
-	ck_null,	/* i_le */
-	ck_null,	/* ge */
-	ck_null,	/* i_ge */
-	ck_null,	/* eq */
-	ck_null,	/* i_eq */
-	ck_null,	/* ne */
-	ck_null,	/* i_ne */
-	ck_null,	/* ncmp */
-	ck_null,	/* i_ncmp */
-	ck_scmp,	/* slt */
-	ck_scmp,	/* sgt */
-	ck_scmp,	/* sle */
-	ck_scmp,	/* sge */
-	ck_null,	/* seq */
-	ck_null,	/* sne */
-	ck_scmp,	/* scmp */
-	ck_bitop,	/* bit_and */
-	ck_bitop,	/* bit_xor */
-	ck_bitop,	/* bit_or */
-	ck_null,	/* negate */
-	ck_null,	/* i_negate */
-	ck_null,	/* not */
-	ck_bitop,	/* complement */
-	ck_fun,		/* atan2 */
-	ck_fun,		/* sin */
-	ck_fun,		/* cos */
-	ck_fun,		/* rand */
-	ck_fun,		/* srand */
-	ck_fun,		/* exp */
-	ck_fun,		/* log */
-	ck_fun,		/* sqrt */
-	ck_fun,		/* int */
-	ck_fun,		/* hex */
-	ck_fun,		/* oct */
-	ck_fun,		/* abs */
-	ck_lengthconst,	/* length */
-	ck_fun,		/* substr */
-	ck_fun,		/* vec */
-	ck_index,	/* index */
-	ck_index,	/* rindex */
-	ck_fun_locale,	/* sprintf */
-	ck_fun,		/* formline */
-	ck_fun,		/* ord */
-	ck_fun,		/* chr */
-	ck_fun,		/* crypt */
-	ck_fun_locale,	/* ucfirst */
-	ck_fun_locale,	/* lcfirst */
-	ck_fun_locale,	/* uc */
-	ck_fun_locale,	/* lc */
-	ck_fun,		/* quotemeta */
-	ck_rvconst,	/* rv2av */
-	ck_null,	/* aelemfast */
-	ck_null,	/* aelem */
-	ck_null,	/* aslice */
-	ck_fun,		/* each */
-	ck_fun,		/* values */
-	ck_fun,		/* keys */
-	ck_delete,	/* delete */
-	ck_exists,	/* exists */
-	ck_rvconst,	/* rv2hv */
-	ck_null,	/* helem */
-	ck_null,	/* hslice */
-	ck_fun,		/* unpack */
-	ck_fun,		/* pack */
-	ck_split,	/* split */
-	ck_fun,		/* join */
-	ck_null,	/* list */
-	ck_null,	/* lslice */
-	ck_fun,		/* anonlist */
-	ck_fun,		/* anonhash */
-	ck_fun,		/* splice */
-	ck_fun,		/* push */
-	ck_shift,	/* pop */
-	ck_shift,	/* shift */
-	ck_fun,		/* unshift */
-	ck_sort,	/* sort */
-	ck_fun,		/* reverse */
-	ck_grep,	/* grepstart */
-	ck_null,	/* grepwhile */
-	ck_grep,	/* mapstart */
-	ck_null,	/* mapwhile */
-	ck_null,	/* range */
-	ck_null,	/* flip */
-	ck_null,	/* flop */
-	ck_null,	/* and */
-	ck_null,	/* or */
-	ck_null,	/* xor */
-	ck_null,	/* cond_expr */
-	ck_null,	/* andassign */
-	ck_null,	/* orassign */
-	ck_null,	/* method */
-	ck_subr,	/* entersub */
-	ck_null,	/* leavesub */
-	ck_fun,		/* caller */
-	ck_fun,		/* warn */
-	ck_fun,		/* die */
-	ck_fun,		/* reset */
-	ck_null,	/* lineseq */
-	ck_null,	/* nextstate */
-	ck_null,	/* dbstate */
-	ck_null,	/* unstack */
-	ck_null,	/* enter */
-	ck_null,	/* leave */
-	ck_null,	/* scope */
-	ck_null,	/* enteriter */
-	ck_null,	/* iter */
-	ck_null,	/* enterloop */
-	ck_null,	/* leaveloop */
-	ck_null,	/* return */
-	ck_null,	/* last */
-	ck_null,	/* next */
-	ck_null,	/* redo */
-	ck_null,	/* dump */
-	ck_null,	/* goto */
-	ck_fun,		/* exit */
-	ck_fun,		/* open */
-	ck_fun,		/* close */
-	ck_fun,		/* pipe_op */
-	ck_fun,		/* fileno */
-	ck_fun,		/* umask */
-	ck_fun,		/* binmode */
-	ck_fun,		/* tie */
-	ck_fun,		/* untie */
-	ck_fun,		/* tied */
-	ck_fun,		/* dbmopen */
-	ck_fun,		/* dbmclose */
-	ck_select,	/* sselect */
-	ck_select,	/* select */
-	ck_eof,		/* getc */
-	ck_fun,		/* read */
-	ck_fun,		/* enterwrite */
-	ck_null,	/* leavewrite */
-	ck_listiob,	/* prtf */
-	ck_listiob,	/* print */
-	ck_fun,		/* sysopen */
-	ck_fun,		/* sysseek */
-	ck_fun,		/* sysread */
-	ck_fun,		/* syswrite */
-	ck_fun,		/* send */
-	ck_fun,		/* recv */
-	ck_eof,		/* eof */
-	ck_fun,		/* tell */
-	ck_fun,		/* seek */
-	ck_trunc,	/* truncate */
-	ck_fun,		/* fcntl */
-	ck_fun,		/* ioctl */
-	ck_fun,		/* flock */
-	ck_fun,		/* socket */
-	ck_fun,		/* sockpair */
-	ck_fun,		/* bind */
-	ck_fun,		/* connect */
-	ck_fun,		/* listen */
-	ck_fun,		/* accept */
-	ck_fun,		/* shutdown */
-	ck_fun,		/* gsockopt */
-	ck_fun,		/* ssockopt */
-	ck_fun,		/* getsockname */
-	ck_fun,		/* getpeername */
-	ck_ftst,	/* lstat */
-	ck_ftst,	/* stat */
-	ck_ftst,	/* ftrread */
-	ck_ftst,	/* ftrwrite */
-	ck_ftst,	/* ftrexec */
-	ck_ftst,	/* fteread */
-	ck_ftst,	/* ftewrite */
-	ck_ftst,	/* fteexec */
-	ck_ftst,	/* ftis */
-	ck_ftst,	/* fteowned */
-	ck_ftst,	/* ftrowned */
-	ck_ftst,	/* ftzero */
-	ck_ftst,	/* ftsize */
-	ck_ftst,	/* ftmtime */
-	ck_ftst,	/* ftatime */
-	ck_ftst,	/* ftctime */
-	ck_ftst,	/* ftsock */
-	ck_ftst,	/* ftchr */
-	ck_ftst,	/* ftblk */
-	ck_ftst,	/* ftfile */
-	ck_ftst,	/* ftdir */
-	ck_ftst,	/* ftpipe */
-	ck_ftst,	/* ftlink */
-	ck_ftst,	/* ftsuid */
-	ck_ftst,	/* ftsgid */
-	ck_ftst,	/* ftsvtx */
-	ck_ftst,	/* fttty */
-	ck_ftst,	/* fttext */
-	ck_ftst,	/* ftbinary */
-	ck_fun,		/* chdir */
-	ck_fun,		/* chown */
-	ck_fun,		/* chroot */
-	ck_fun,		/* unlink */
-	ck_fun,		/* chmod */
-	ck_fun,		/* utime */
-	ck_fun,		/* rename */
-	ck_fun,		/* link */
-	ck_fun,		/* symlink */
-	ck_fun,		/* readlink */
-	ck_fun,		/* mkdir */
-	ck_fun,		/* rmdir */
-	ck_fun,		/* open_dir */
-	ck_fun,		/* readdir */
-	ck_fun,		/* telldir */
-	ck_fun,		/* seekdir */
-	ck_fun,		/* rewinddir */
-	ck_fun,		/* closedir */
-	ck_null,	/* fork */
-	ck_null,	/* wait */
-	ck_fun,		/* waitpid */
-	ck_exec,	/* system */
-	ck_exec,	/* exec */
-	ck_fun,		/* kill */
-	ck_null,	/* getppid */
-	ck_fun,		/* getpgrp */
-	ck_fun,		/* setpgrp */
-	ck_fun,		/* getpriority */
-	ck_fun,		/* setpriority */
-	ck_null,	/* time */
-	ck_null,	/* tms */
-	ck_fun,		/* localtime */
-	ck_fun,		/* gmtime */
-	ck_fun,		/* alarm */
-	ck_fun,		/* sleep */
-	ck_fun,		/* shmget */
-	ck_fun,		/* shmctl */
-	ck_fun,		/* shmread */
-	ck_fun,		/* shmwrite */
-	ck_fun,		/* msgget */
-	ck_fun,		/* msgctl */
-	ck_fun,		/* msgsnd */
-	ck_fun,		/* msgrcv */
-	ck_fun,		/* semget */
-	ck_fun,		/* semctl */
-	ck_fun,		/* semop */
-	ck_require,	/* require */
-	ck_fun,		/* dofile */
-	ck_eval,	/* entereval */
-	ck_null,	/* leaveeval */
-	ck_null,	/* entertry */
-	ck_null,	/* leavetry */
-	ck_fun,		/* ghbyname */
-	ck_fun,		/* ghbyaddr */
-	ck_null,	/* ghostent */
-	ck_fun,		/* gnbyname */
-	ck_fun,		/* gnbyaddr */
-	ck_null,	/* gnetent */
-	ck_fun,		/* gpbyname */
-	ck_fun,		/* gpbynumber */
-	ck_null,	/* gprotoent */
-	ck_fun,		/* gsbyname */
-	ck_fun,		/* gsbyport */
-	ck_null,	/* gservent */
-	ck_fun,		/* shostent */
-	ck_fun,		/* snetent */
-	ck_fun,		/* sprotoent */
-	ck_fun,		/* sservent */
-	ck_null,	/* ehostent */
-	ck_null,	/* enetent */
-	ck_null,	/* eprotoent */
-	ck_null,	/* eservent */
-	ck_fun,		/* gpwnam */
-	ck_fun,		/* gpwuid */
-	ck_null,	/* gpwent */
-	ck_null,	/* spwent */
-	ck_null,	/* epwent */
-	ck_fun,		/* ggrnam */
-	ck_fun,		/* ggrgid */
-	ck_null,	/* ggrent */
-	ck_null,	/* sgrent */
-	ck_null,	/* egrent */
-	ck_null,	/* getlogin */
-	ck_fun,		/* syscall */
-	ck_rfun,	/* lock */
-	ck_null,	/* threadsv */
-};
-
-OP * (CPERLscope(*ppaddr)[])(ARGSproto) = {
-	pp_null,
-	pp_stub,
-	pp_scalar,
-	pp_pushmark,
-	pp_wantarray,
-	pp_const,
-	pp_gvsv,
-	pp_gv,
-	pp_gelem,
-	pp_padsv,
-	pp_padav,
-	pp_padhv,
-	pp_padany,
-	pp_pushre,
-	pp_rv2gv,
-	pp_rv2sv,
-	pp_av2arylen,
-	pp_rv2cv,
-	pp_anoncode,
-	pp_prototype,
-	pp_refgen,
-	pp_srefgen,
-	pp_ref,
-	pp_bless,
-	pp_backtick,
-	pp_glob,
-	pp_readline,
-	pp_rcatline,
-	pp_regcmaybe,
-	pp_regcreset,
-	pp_regcomp,
-	pp_match,
-	pp_qr,
-	pp_subst,
-	pp_substcont,
-	pp_trans,
-	pp_sassign,
-	pp_aassign,
-	pp_chop,
-	pp_schop,
-	pp_chomp,
-	pp_schomp,
-	pp_defined,
-	pp_undef,
-	pp_study,
-	pp_pos,
-	pp_preinc,
-	pp_i_preinc,
-	pp_predec,
-	pp_i_predec,
-	pp_postinc,
-	pp_i_postinc,
-	pp_postdec,
-	pp_i_postdec,
-	pp_pow,
-	pp_multiply,
-	pp_i_multiply,
-	pp_divide,
-	pp_i_divide,
-	pp_modulo,
-	pp_i_modulo,
-	pp_repeat,
-	pp_add,
-	pp_i_add,
-	pp_subtract,
-	pp_i_subtract,
-	pp_concat,
-	pp_stringify,
-	pp_left_shift,
-	pp_right_shift,
-	pp_lt,
-	pp_i_lt,
-	pp_gt,
-	pp_i_gt,
-	pp_le,
-	pp_i_le,
-	pp_ge,
-	pp_i_ge,
-	pp_eq,
-	pp_i_eq,
-	pp_ne,
-	pp_i_ne,
-	pp_ncmp,
-	pp_i_ncmp,
-	pp_slt,
-	pp_sgt,
-	pp_sle,
-	pp_sge,
-	pp_seq,
-	pp_sne,
-	pp_scmp,
-	pp_bit_and,
-	pp_bit_xor,
-	pp_bit_or,
-	pp_negate,
-	pp_i_negate,
-	pp_not,
-	pp_complement,
-	pp_atan2,
-	pp_sin,
-	pp_cos,
-	pp_rand,
-	pp_srand,
-	pp_exp,
-	pp_log,
-	pp_sqrt,
-	pp_int,
-	pp_hex,
-	pp_oct,
-	pp_abs,
-	pp_length,
-	pp_substr,
-	pp_vec,
-	pp_index,
-	pp_rindex,
-	pp_sprintf,
-	pp_formline,
-	pp_ord,
-	pp_chr,
-	pp_crypt,
-	pp_ucfirst,
-	pp_lcfirst,
-	pp_uc,
-	pp_lc,
-	pp_quotemeta,
-	pp_rv2av,
-	pp_aelemfast,
-	pp_aelem,
-	pp_aslice,
-	pp_each,
-	pp_values,
-	pp_keys,
-	pp_delete,
-	pp_exists,
-	pp_rv2hv,
-	pp_helem,
-	pp_hslice,
-	pp_unpack,
-	pp_pack,
-	pp_split,
-	pp_join,
-	pp_list,
-	pp_lslice,
-	pp_anonlist,
-	pp_anonhash,
-	pp_splice,
-	pp_push,
-	pp_pop,
-	pp_shift,
-	pp_unshift,
-	pp_sort,
-	pp_reverse,
-	pp_grepstart,
-	pp_grepwhile,
-	pp_mapstart,
-	pp_mapwhile,
-	pp_range,
-	pp_flip,
-	pp_flop,
-	pp_and,
-	pp_or,
-	pp_xor,
-	pp_cond_expr,
-	pp_andassign,
-	pp_orassign,
-	pp_method,
-	pp_entersub,
-	pp_leavesub,
-	pp_caller,
-	pp_warn,
-	pp_die,
-	pp_reset,
-	pp_lineseq,
-	pp_nextstate,
-	pp_dbstate,
-	pp_unstack,
-	pp_enter,
-	pp_leave,
-	pp_scope,
-	pp_enteriter,
-	pp_iter,
-	pp_enterloop,
-	pp_leaveloop,
-	pp_return,
-	pp_last,
-	pp_next,
-	pp_redo,
-	pp_dump,
-	pp_goto,
-	pp_exit,
-	pp_open,
-	pp_close,
-	pp_pipe_op,
-	pp_fileno,
-	pp_umask,
-	pp_binmode,
-	pp_tie,
-	pp_untie,
-	pp_tied,
-	pp_dbmopen,
-	pp_dbmclose,
-	pp_sselect,
-	pp_select,
-	pp_getc,
-	pp_read,
-	pp_enterwrite,
-	pp_leavewrite,
-	pp_prtf,
-	pp_print,
-	pp_sysopen,
-	pp_sysseek,
-	pp_sysread,
-	pp_syswrite,
-	pp_send,
-	pp_recv,
-	pp_eof,
-	pp_tell,
-	pp_seek,
-	pp_truncate,
-	pp_fcntl,
-	pp_ioctl,
-	pp_flock,
-	pp_socket,
-	pp_sockpair,
-	pp_bind,
-	pp_connect,
-	pp_listen,
-	pp_accept,
-	pp_shutdown,
-	pp_gsockopt,
-	pp_ssockopt,
-	pp_getsockname,
-	pp_getpeername,
-	pp_lstat,
-	pp_stat,
-	pp_ftrread,
-	pp_ftrwrite,
-	pp_ftrexec,
-	pp_fteread,
-	pp_ftewrite,
-	pp_fteexec,
-	pp_ftis,
-	pp_fteowned,
-	pp_ftrowned,
-	pp_ftzero,
-	pp_ftsize,
-	pp_ftmtime,
-	pp_ftatime,
-	pp_ftctime,
-	pp_ftsock,
-	pp_ftchr,
-	pp_ftblk,
-	pp_ftfile,
-	pp_ftdir,
-	pp_ftpipe,
-	pp_ftlink,
-	pp_ftsuid,
-	pp_ftsgid,
-	pp_ftsvtx,
-	pp_fttty,
-	pp_fttext,
-	pp_ftbinary,
-	pp_chdir,
-	pp_chown,
-	pp_chroot,
-	pp_unlink,
-	pp_chmod,
-	pp_utime,
-	pp_rename,
-	pp_link,
-	pp_symlink,
-	pp_readlink,
-	pp_mkdir,
-	pp_rmdir,
-	pp_open_dir,
-	pp_readdir,
-	pp_telldir,
-	pp_seekdir,
-	pp_rewinddir,
-	pp_closedir,
-	pp_fork,
-	pp_wait,
-	pp_waitpid,
-	pp_system,
-	pp_exec,
-	pp_kill,
-	pp_getppid,
-	pp_getpgrp,
-	pp_setpgrp,
-	pp_getpriority,
-	pp_setpriority,
-	pp_time,
-	pp_tms,
-	pp_localtime,
-	pp_gmtime,
-	pp_alarm,
-	pp_sleep,
-	pp_shmget,
-	pp_shmctl,
-	pp_shmread,
-	pp_shmwrite,
-	pp_msgget,
-	pp_msgctl,
-	pp_msgsnd,
-	pp_msgrcv,
-	pp_semget,
-	pp_semctl,
-	pp_semop,
-	pp_require,
-	pp_dofile,
-	pp_entereval,
-	pp_leaveeval,
-	pp_entertry,
-	pp_leavetry,
-	pp_ghbyname,
-	pp_ghbyaddr,
-	pp_ghostent,
-	pp_gnbyname,
-	pp_gnbyaddr,
-	pp_gnetent,
-	pp_gpbyname,
-	pp_gpbynumber,
-	pp_gprotoent,
-	pp_gsbyname,
-	pp_gsbyport,
-	pp_gservent,
-	pp_shostent,
-	pp_snetent,
-	pp_sprotoent,
-	pp_sservent,
-	pp_ehostent,
-	pp_enetent,
-	pp_eprotoent,
-	pp_eservent,
-	pp_gpwnam,
-	pp_gpwuid,
-	pp_gpwent,
-	pp_spwent,
-	pp_epwent,
-	pp_ggrnam,
-	pp_ggrgid,
-	pp_ggrent,
-	pp_sgrent,
-	pp_egrent,
-	pp_getlogin,
-	pp_syscall,
-	pp_lock,
-	pp_threadsv,
-};
-
-int
-fprintf(PerlIO *stream, const char *format, ...)
-{
-    va_list(arglist);
-    va_start(arglist, format);
-    return PerlIO_vprintf(stream, format, arglist);
-}
 
 #undef PERLVAR
 #define PERLVAR(x, y)
@@ -1454,6 +48,14 @@ CPerlObj::Init(void)
 {
 }
 
+int
+fprintf(PerlIO *stream, const char *format, ...)
+{
+    va_list(arglist);
+    va_start(arglist, format);
+    return PerlIO_vprintf(stream, format, arglist);
+}
+
 #ifdef WIN32		/* XXX why are these needed? */
 bool
 do_exec(char *cmd)