diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-19 21:34:42 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-19 21:34:42 +0000 |
| commit | 7ea3cd407b6ec2a3e424bdfbc486b6e01d6d28bd (patch) | |
| tree | 07e09d8ad20b5ba1bc0766d43bd3fee8319ccca0 /perlapi.c | |
| parent | 9ad0568745f6fe01e5fc04f7d23be449d0c377a4 (diff) | |
| download | perl-7ea3cd407b6ec2a3e424bdfbc486b6e01d6d28bd.tar.gz | |
Integrate mainline.
p4raw-id: //depot/perlio@8202
Diffstat (limited to 'perlapi.c')
| -rw-r--r-- | perlapi.c | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -85,6 +85,13 @@ Perl_Gv_AMupdate(pTHXo_ HV* stash) return ((CPerlObj*)pPerl)->Perl_Gv_AMupdate(stash); } +#undef Perl_gv_handler +CV* +Perl_gv_handler(pTHXo_ HV* stash, I32 id) +{ + return ((CPerlObj*)pPerl)->Perl_gv_handler(stash, id); +} + #undef Perl_apply_attrs_string void Perl_apply_attrs_string(pTHXo_ char *stashpv, CV *cv, char *attrstr, STRLEN len) @@ -2312,6 +2319,13 @@ Perl_regdump(pTHXo_ regexp* r) ((CPerlObj*)pPerl)->Perl_regdump(r); } +#undef Perl_regclass_swash +SV* +Perl_regclass_swash(pTHXo_ struct regnode *n, bool doinit, SV **initsvp) +{ + return ((CPerlObj*)pPerl)->Perl_regclass_swash(n, doinit, initsvp); +} + #undef Perl_pregexec I32 Perl_pregexec(pTHXo_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave) @@ -4096,6 +4110,8 @@ Perl_sys_intern_init(pTHXo) #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT) # if defined(DEBUGGING) # endif +# if !defined(NV_PRESERVES_UV) +# endif #endif #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT) #if 0 |