#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_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)
#undef PERLVARI
#define PERLVARI(x, y, z) PL_##x = z;
#undef PERLVARIC
#define PERLVARIC(x, y, z) PL_##x = z;
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*));
#include "thrdvar.h"
#include "intrpvar.h"
#include "perlvars.h"
PL_piMem = ipM;
PL_piENV = ipE;
PL_piStdIO = ipStd;
PL_piLIO = ipLIO;
PL_piDir = ipD;
PL_piSock = ipS;
PL_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 errno;
}
void
CPerlObj::Init(void)
{
}
#ifdef WIN32 /* XXX why are these needed? */
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 */