Fix $lex = chomp $lex regression from 5.12

Commit 2f9970be0 (5.13.9) caused the lhs to be written to with 0
before the chomp happens, and then incremented for each chomp on the
rhs argument.

That makes

    my $a = $/ = 7;
    $a = chomp $a;
    print $a;

print 0 instead of 1 and makes

    my $a = $/ = 0;
    $a = chomp $a;

assign the empty string to $a instead of 1.

1 files changed, 1 insertions, 1 deletions

diff --git a/embed.fnc b/embed.fnc
index 7a733fb053..822f2c1a2e 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2004,7 +2004,7 @@ s	|SV *	|incpush_if_exists|NN AV *const av|NN SV *dir|NN SV *const stem
 #endif
 
 #if defined(PERL_IN_PP_C)
-s	|void	|do_chomp	|NN SV *retval|NN SV *sv|bool chomping
+s	|size_t	|do_chomp	|NN SV *retval|NN SV *sv|bool chomping
 s	|OP*	|do_delete_local
 sR	|SV*	|refto		|NN SV* sv
 #endif