In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/70eec6488881c54307a924829e648b8abc9e8bc7?hp=ae4e3076fc2ac46ffb4f6ab62d2fd5909928343f>
- Log ----------------------------------------------------------------- commit 70eec6488881c54307a924829e648b8abc9e8bc7 Author: Alexandr Ciornii <[email protected]> Date: Wed Sep 7 00:30:46 2011 +0300 || instead of "or" (perl#78708) M utils/h2xs.PL commit d72a08cef7cdd5dc1701378ef61657bcd4fee58e Author: Father Chrysostomos <[email protected]> Date: Mon Dec 5 12:55:57 2011 -0800 Put optimised substr assignment in void context 24fcb59fc optimised substr assignment in void context down to four-arg substr, causing considerable speed-up, but did not take the extra step of marking the substr op itself as being in void context, so pp_substr was still constructing a return value. This commit speed things up just a tiny bit more. M op.c ----------------------------------------------------------------------- Summary of changes: op.c | 2 ++ utils/h2xs.PL | 2 +- 2 files changed, 3 insertions(+), 1 deletions(-) diff --git a/op.c b/op.c index 1ed3dae..e353015 100644 --- a/op.c +++ b/op.c @@ -10315,6 +10315,8 @@ Perl_rpeep(pTHX_ register OP *o) cBINOPx(left)->op_first->op_sibling; cBINOPx(left)->op_first->op_sibling = right; left->op_private |= OPpSUBSTR_REPL_FIRST; + left->op_flags = + (o->op_flags & ~OPf_WANT) | OPf_WANT_VOID; } } } diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 6c41ea9..ee4079f 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -893,7 +893,7 @@ if( @path_h ){ } else { # Work from miniperl too - on "normal" systems - my $SEEK_SET = eval 'use Fcntl qw/SEEK_SET/; SEEK_SET' or 0; + my $SEEK_SET = eval 'use Fcntl qw/SEEK_SET/; SEEK_SET' || 0; seek CH, 0, $SEEK_SET; my $src = do { local $/; <CH> }; close CH; -- Perl5 Master Repository
