[asperl] added AS patch#2

p4raw-id: //depot/asperl@443

1 files changed, 1500 insertions, 0 deletions

diff --git a/globals.c b/globals.c
index 0550a5ac41..a566925ac3 100644
--- a/globals.c
+++ b/globals.c
@@ -1,2 +1,1502 @@
 #include "INTERN.h"
 #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_regcomp	
+#define pp_regcomp	CPerlObj::Perl_pp_regcomp
+#undef  pp_match	
+#define pp_match	CPerlObj::Perl_pp_match
+#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_null,	/* regcomp */
+	ck_match,	/* match */
+	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_regcomp,
+	pp_match,
+	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);
+}
+
+CPerlObj::CPerlObj(IPerlMem* ipM, IPerlEnv* ipE, IPerlStdIO* ipStd,
+					     IPerlLIO* ipLIO, IPerlDir* ipD, IPerlSock* ipS, IPerlProc* ipP)
+{
+    memset(((char*)this)+sizeof(void*), 0, sizeof(CPerlObj)-sizeof(void*));
+    piMem = ipM;
+    piENV = ipE;
+    piStdIO = ipStd;
+    piLIO = ipLIO;
+    piDir = ipD;
+    piSock = ipS;
+    piProc = ipP;
+}
+
+void*
+CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl)
+{
+    if(pvtbl != NULL)
+	return pvtbl->Malloc(nSize);
+
+    return NULL;
+}
+
+int&
+CPerlObj::ErrorNo(void)
+{
+    return error_no;
+}
+
+void
+CPerlObj::Init(void)
+{
+	curcop = &compiling;
+	cxstack_ix = -1;
+	cxstack_max = 128;
+#ifdef USE_THREADS
+	threadsv_names = THREADSV_NAMES;
+	chopset = " \n-";
+	tmps_ix = -1;
+	tmps_floor = -1;
+	curcop = &compiling;
+	cxstack_ix = -1;
+	cxstack_max = 128;
+#endif
+	maxo = MAXO;
+	sh_path = SH_PATH;
+	runops = RUNOPS_DEFAULT;
+#ifdef CSH
+	cshname = CSH;
+#endif
+	rsfp = Nullfp;
+	expect = XSTATE;
+#ifdef USE_LOCALE_COLLATE
+	collation_standard = TRUE;
+	collxfrm_mult = 2;
+#endif
+#ifdef USE_LOCALE_NUMERIC
+	numeric_standard = TRUE;
+	numeric_local = TRUE;
+#endif /* !USE_LOCALE_NUMERIC */
+
+/* constants (these are not literals to facilitate pointer comparisons) */
+	Yes = "1";
+	No = "";
+	hexdigit = "0123456789abcdef0123456789ABCDEFx";
+	patleave = "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}";
+	splitstr = " ";
+	perl_destruct_level = 0;
+	maxsysfd = MAXSYSFD;
+	statname = Nullsv;
+	maxscream = -1;
+	op_mask = NULL;
+	dlmax = 128;
+	curcopdb = NULL;
+	copline = NOLINE;
+	laststatval = -1;
+	laststype = OP_STAT;
+
+#ifdef WIN32
+	New(2904, environ, 1, char*);
+	*environ = NULL;
+#endif
+}
+
+#ifdef WIN32
+bool
+do_exec(char *cmd)
+{
+	return PerlProc_Cmd(cmd);
+}
+
+int
+do_aspawn(void *vreally, void **vmark, void **vsp)
+{
+	return PerlProc_aspawn(vreally, vmark, vsp);
+}
+
+#endif  /* WIN32 */
+
+#endif   /* PERL_OBJECT */