diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-05-26 18:05:12 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-26 22:31:46 +0000 |
| commit | 8d6d96c1bf85fd984f18f84ea834be52b168c812 (patch) | |
| tree | 4ee72334404f4fe71563fa9032cd971abbc0f829 /doop.c | |
| parent | c9242e489bb96da0966a8aebd4b60579ca9623f3 (diff) | |
| download | perl-8d6d96c1bf85fd984f18f84ea834be52b168c812.tar.gz | |
Re: 5.6.*, bleadperl: bugs in pp_concat
Message-Id: <200105261605.RAA12295@crypt.compulink.co.uk>
p4raw-id: //depot/perl@10223
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -667,14 +667,16 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s ++mark; } + sv_setpv(sv, ""); + if (PL_tainting && SvMAGICAL(sv)) + SvTAINTED_off(sv); + if (items-- > 0) { - sv_setpv(sv, ""); if (*mark) sv_catsv(sv, *mark); mark++; } - else - sv_setpv(sv,""); + if (delimlen) { for (; items > 0; items--,mark++) { sv_catsv(sv,del); |