This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_concat: Only call SvPV_force_nolen when needed
authorSteffen Mueller <smueller@cpan.org>
Mon, 10 Feb 2014 10:40:31 +0000 (11:40 +0100)
committerSteffen Mueller <smueller@cpan.org>
Mon, 10 Feb 2014 10:40:31 +0000 (11:40 +0100)
commit18ea7bf2cf79c90c0c3162783e5a0f30fbf0c026
tree5ce5323a93f4715e87ca9a606ea2b380ac7abc91
parent3a3ee363aabfd679b63d9486cf6aa053f4825457
pp_concat: Only call SvPV_force_nolen when needed

If we just did an sv_setpvs on it, the SvPV_force_nolen should not do
anything useful, so let's not.

Side note: s/TARG/left/ in the enclosing block because they are the same
pointer, so why use a define that needs grokking by the reader of the
code if the local variable is guaranteed to be the same?
pp_hot.c