diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-12-31 16:58:18 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-12-31 16:58:18 +0000 |
commit | 10efb74f64fe893d58bec201ca5044ac1e94c795 (patch) | |
tree | 4d1b3bbbc65dda4c7a3716bab2f74ff627bf7627 /embed.fnc | |
parent | 054149a8968eff13946521ef29d0987fadd9a28b (diff) | |
download | perl-10efb74f64fe893d58bec201ca5044ac1e94c795.tar.gz |
Rationalise the logic in lex_start for creating a new temporary if the
passed in SV is read only or doesn't end in ';'. Also, allow a NULL
pointer to imply a zero length string, which saves creating a mortal
in pp_require, only for it to be ignored in favour of a new SV.
p4raw-id: //depot/perl@29647
Diffstat (limited to 'embed.fnc')
-rw-r--r-- | embed.fnc | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -399,7 +399,7 @@ p |OP* |jmaybe |NN OP* arg pP |I32 |keyword |NN const char* d|I32 len|bool all_keywords Ap |void |leave_scope |I32 base p |void |lex_end -p |void |lex_start |NN SV* line +p |void |lex_start |NULLOK SV* line Ap |void |op_null |NN OP* o p |void |op_clear |NN OP* o Ap |void |op_refcnt_lock |