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 /perlapi.c | |
| 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 'perlapi.c')
| -rw-r--r-- | perlapi.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1743,10 +1743,10 @@ Perl_newCONDOP(pTHXo_ I32 flags, OP* expr, OP* trueop, OP* falseop) } #undef Perl_newCONSTSUB -void +CV* Perl_newCONSTSUB(pTHXo_ HV* stash, char* name, SV* sv) { - ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv); + return ((CPerlObj*)pPerl)->Perl_newCONSTSUB(stash, name, sv); } #undef Perl_newFORM |