Regex with braces as delimiters do not properly begin and end

[zoffixznet]

I'm using 1.8.0

Example Code

    if $parent {
        while $path ~~ s:g { [^ | <?after '\\'>] <!before '..\\'> <-[\\]>+ '\\..' ['\\' | $ ] } = '' { };
    }
    $path ~~ s/^ '\\'+ //;        # \xx --> xx  NOTE: this is *not* root

Picture [optional]

Leave this in. For internal use.

• [x] Fixed in Master
• [x] Fixed in Release
• [x] Has Tests
• [x] Passes Tests

[zoffixznet]

After playing with code, the something is the braces on s:g//, changing them to some other delimiter fixes the issue

[zoffixznet]

Oops. I was wrong. It only unbreaks when using something like ♥, but that makes invalid code since we need matching braces in the s{...} = 'something' form

[zoffixznet]

I think I found it now, something to do with all the backslashes. This isn't broken:

        if $parent {
            while $path ~~ s:g { [^ | <?after ｢\｣>] <!before ｢..\｣> <-[\\]>+ '\\..' ['\\' | $ ] } = '' { };
        }

[samcv]

This is a duplicate of https://github.com/perl6/atom-language-perl6/issues/56 but i'm going to keep this one open and close the other one.

The problem is that s:g{ } is not highlighting as regex period, and so this wrecks things when it doesn't know it's inside a regex. IF you change them to s:g / / then it all is fine.

[samcv]

Fixed in 1.15.0 which has just been released. :heavy_check_mark: