Re: utf8+regex bug in 5.8.1-RC2

Message-ID: <20030801001631.GA11233@fdgroup.com>

p4raw-id: //depot/perl@20405

diff --git a/regcomp.c b/regcomp.c
index 3b69817..dedcd00 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -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)

diff --git a/t/op/pat.t b/t/op/pat.t
index 1e7eaf7..d606a6a 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..1007\n";
+print "1..1008\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -3194,4 +3194,6 @@ $_="abcdef\n";
 @x = m/./g;
 ok("abcde" eq "$`", '# TODO #19049 - global match not setting $`');
 
-# last test 1007
+ok("123\x{100}" =~ /^.*1.*23\x{100}$/, 'uft8 + multiple floating substr');
+
+# last test 1008