diff options
| author | David Mitchell <davem@iabyn.com> | 2014-03-05 19:42:02 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2014-03-16 18:34:37 +0000 |
| commit | 1022336546c7c8280b26bac6ed9c55bfd217804f (patch) | |
| tree | 07f2cf1ef75b9c44e4b8174894e020a823d9ca46 /embed.fnc | |
| parent | cdec98ff86310d40c5a05f14e7e624f52ddcc156 (diff) | |
| download | perl-1022336546c7c8280b26bac6ed9c55bfd217804f.tar.gz | |
rpeep(): remove trailing OP_NULLs etc
Perl_rpeep() elides OP_NULLs etc in the middle of an op_next chain, but
not at the start or end. Doing it at the start is hard (and not addressed
here); doing it at the end is trivial, and it just looks like a mistake in
the original code (there since 1994) that was (incorrectly) worried about
following through a null pointer.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2017,7 +2017,7 @@ s |void |qsortsvu |NULLOK SV** array|size_t num_elts|NN SVCOMPARE_t compare #endif #if defined(PERL_IN_PP_SYS_C) -s |OP* |doform |NN CV *cv|NN GV *gv|NN OP *retop +s |OP* |doform |NN CV *cv|NN GV *gv|NULLOK OP *retop # if !defined(HAS_MKDIR) || !defined(HAS_RMDIR) sR |int |dooneliner |NN const char *cmd|NN const char *filename # endif |