diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 1999-08-28 23:02:11 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-29 11:10:33 +0000 |
| commit | 09bef84370e90d727656ea11ba5ee8be80e361d3 (patch) | |
| tree | a3be55423863d0b8aa13316472ce65fd1007390f /perlapi.c | |
| parent | 34d1710f50a396dda66d4f7a7ffb73f6cc80cf01 (diff) | |
| download | perl-09bef84370e90d727656ea11ba5ee8be80e361d3.tar.gz | |
sub : attrlist
To: Mailing list Perl5 <perl5-porters@perl.org>
Message-Id: <199908290702.DAA32191@Orb.Nashua.NH.US>
p4raw-id: //depot/cfgperl@4043
Diffstat (limited to 'perlapi.c')
| -rwxr-xr-x | perlapi.c | 37 |
1 files changed, 37 insertions, 0 deletions
@@ -4779,6 +4779,41 @@ Perl_magic_killbackrefs(pTHXo_ SV *sv, MAGIC *mg) { return ((CPerlObj*)pPerl)->Perl_magic_killbackrefs(sv, mg); } + +#undef Perl_newANONATTRSUB +OP* +Perl_newANONATTRSUB(pTHXo_ I32 floor, OP *proto, OP *attrs, OP *block) +{ + return ((CPerlObj*)pPerl)->Perl_newANONATTRSUB(floor, proto, attrs, block); +} + +#undef Perl_newATTRSUB +CV* +Perl_newATTRSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) +{ + return ((CPerlObj*)pPerl)->Perl_newATTRSUB(floor, o, proto, attrs, block); +} + +#undef Perl_newMYSUB +void +Perl_newMYSUB(pTHXo_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) +{ + ((CPerlObj*)pPerl)->Perl_newMYSUB(floor, o, proto, attrs, block); +} + +#undef Perl_my_attrs +OP * +Perl_my_attrs(pTHXo_ OP *o, OP *attrs) +{ + return ((CPerlObj*)pPerl)->Perl_my_attrs(o, attrs); +} + +#undef Perl_boot_core_xsutils +void +Perl_boot_core_xsutils(pTHXo) +{ + ((CPerlObj*)pPerl)->Perl_boot_core_xsutils(); +} #if defined(PERL_OBJECT) #endif #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT) @@ -4834,6 +4869,8 @@ Perl_magic_killbackrefs(pTHXo_ SV *sv, MAGIC *mg) #endif #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT) #endif +#if defined(PERL_IN_XSUTILS_C) || defined(PERL_DECL_PROT) +#endif #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT) # if defined(LEAKTEST) # endif |