[perl #39864] [BUG] Compiling P6Regex within code substitutes part of string to match away

[Kay-Uwe Huell]

# New Ticket Created by Kay-Uwe Huell
# Please include the string: [perl #39864]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=39864 >

Hi parrot team,

please try attached code. Output of this is:

kiwi@cassiopeia:~/work/dev/wickedWiki/trunk$ parrot
spikes/pge_test_dir.t
S0: '/bar/..', dir = '/foo/bar/../glork'
1 dir: '/foo/glork'
S0: '', dir = '/foo/glork'
2 dir = '/foo/glork'
3 dir = '/foo/glork'
4 dir = '�/glork'
5 dir = '�/glork'
ret: dir = '�/glork'
dir: '�/glork'

output at '4' should still be 'dir = '/foo/glork'. I compile a P6Regex
before output of this line and after '3'. This behaviour is not expected.

Thanks,

kiwi

[Leopold Toetsch via RT]

as mentioned on IRC, it looks like a GC bug, but
actually it was a COW string bug (a possibly already set live flag wasn't
cleared, which lead to half-moved string memory, s. resources.c:370)

Fixed w. r13400