diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-08-01 02:16:31 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-01 05:09:23 +0000 |
| commit | 6b43b21664ab964e1ebd0bc1810512bd8e137c12 (patch) | |
| tree | cbfff5bb1a9c3849a89eb20316d4c6c9492ec483 /regcomp.c | |
| parent | cfa0b87319399039e62911f65be76d268fcf0738 (diff) | |
| download | perl-6b43b21664ab964e1ebd0bc1810512bd8e137c12.tar.gz | |
Re: utf8+regex bug in 5.8.1-RC2
Message-ID: <20030801001631.GA11233@fdgroup.com>
p4raw-id: //depot/perl@20405
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -472,7 +472,7 @@ S_scan_commit(pTHX_ RExC_state_t *pRExC_state, scan_data_t *data) STRLEN old_l = CHR_SVLEN(*data->longest); if ((l >= old_l) && ((l > old_l) || (data->flags & SF_BEFORE_EOL))) { - sv_setsv(*data->longest, data->last_found); + SvSetMagicSV(*data->longest, data->last_found); if (*data->longest == data->longest_fixed) { data->offset_fixed = l ? data->last_start_min : data->pos_min; if (data->flags & SF_BEFORE_EOL) |