diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-03-29 20:03:18 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-03-29 20:06:53 +0100 |
| commit | 99ab892b6470bcd28bad5512a942b608496ebf8f (patch) | |
| tree | 1614b48285f126c71144d5542a01e75a9b0e6ab6 /embed.fnc | |
| parent | 9340c80aaec7d3857f387eea86207c1a9604b2ad (diff) | |
| download | perl-99ab892b6470bcd28bad5512a942b608496ebf8f.tar.gz | |
Change Perl_newCONSTSUB() so that a NULL sv generates an empty list return.
Don't call DESTROY if it's a constant subroutine.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -646,7 +646,7 @@ Apa |OP* |newANONHASH |NULLOK OP* o Ap |OP* |newANONSUB |I32 floor|NULLOK OP* proto|NULLOK OP* block Apa |OP* |newASSIGNOP |I32 flags|NULLOK OP* left|I32 optype|NULLOK OP* right Apa |OP* |newCONDOP |I32 flags|NN OP* first|NULLOK OP* trueop|NULLOK OP* falseop -Apd |CV* |newCONSTSUB |NULLOK HV* stash|NULLOK const char* name|NN SV* sv +Apd |CV* |newCONSTSUB |NULLOK HV* stash|NULLOK const char* name|NULLOK SV* sv #ifdef PERL_MAD Ap |OP* |newFORM |I32 floor|NULLOK OP* o|NULLOK OP* block #else |