diff options
| author | John Tobey <jtobey@john-edwin-tobey.org> | 2000-10-20 18:03:27 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-21 14:26:45 +0000 |
| commit | beab0874143b7208922720fecefc4a224011fa25 (patch) | |
| tree | 3abffe8c491d477f0bb7cd037866ba7485ef9ee5 /proto.h | |
| parent | 3a67c0c7529c0500df7fe90b2c6269508a51be07 (diff) | |
| download | perl-beab0874143b7208922720fecefc4a224011fa25.tar.gz | |
Re: Creating const subs for constants.
Message-Id: <m13mo0N-000FObC@feynman.localnet>
p4raw-id: //depot/perl@7389
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -504,7 +504,7 @@ PERL_CALLCONV OP* Perl_newANONHASH(pTHX_ OP* o); PERL_CALLCONV OP* Perl_newANONSUB(pTHX_ I32 floor, OP* proto, OP* block); PERL_CALLCONV OP* Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* right); PERL_CALLCONV OP* Perl_newCONDOP(pTHX_ I32 flags, OP* expr, OP* trueop, OP* falseop); -PERL_CALLCONV void Perl_newCONSTSUB(pTHX_ HV* stash, char* name, SV* sv); +PERL_CALLCONV CV* Perl_newCONSTSUB(pTHX_ HV* stash, char* name, SV* sv); PERL_CALLCONV void Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block); PERL_CALLCONV OP* Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont); PERL_CALLCONV OP* Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP* left, OP* right); |