This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Perl_sv_vcatpvfn_flags: move %*v handling earlier
authorDavid Mitchell <davem@iabyn.com>
Fri, 26 May 2017 21:19:44 +0000 (22:19 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 7 Jun 2017 08:11:04 +0000 (09:11 +0100)
commitacb5c40ed6c543c736a67a4511651d441cf7fe3d
tree26fb9ad95b15892e9b34161cba537a2c6ef490d1
parentf35bb12b68e7dc46f60a20569722d6d04b72b6c2
Perl_sv_vcatpvfn_flags: move %*v handling earlier

Where the v flag appears, and it has non-default separator, i.e.
*v or *NNN$v, retrieve the next or NNNth arg (which defines the separator)
earlier - as soon as we encounter the v flag. This should in theory make
no functional difference since no args are processed between those two
points (so no chance of us stealing something else's arg).

Doing it ealrier makes the conditions simpler (we don't have to check for
(vectorize && vectorarg) later).

The whole code block has been moved as-is with no changes apart from
whitespace.
sv.c