Sublime Forum

**qooob** · March 21, 2019, 11:06am

Hi,

After updating to Sublime Text 3200 highlight of regex in Perl started to look broken.

Example of what is not working at the moment, what worked before:

(@p) = $z =~
/(?:TCP_IN|UDP_IN|TCP6_IN|UDP6_IN|PORTS_TCP|PORTS_UDP|CT_PORTS|CLUSTER_PORT|PORTS_webmin|PORTS_sshd).*=\s*"([\d+,]+)"/g;

However , if you list above in one line the code below starts to look okay (as expected).

You can see more code in concrete file examples below. After mentioned lines, all code below looks broken.
https://github.com/rostovtsev/authentic-theme-src/blob/master/authentic-lib.pm#L1744

github.com

authentic-theme/authentic-theme/blob/master/authentic-init.pm#L48


    for (values %in_data) {s/'1'/1/g}
    for (values %in_data) {s/'0'/0/g}
    for (values %in_data) {
        s/
         \G
         (
            (?: ^ [^']* ' | (?!^) )
            (?: [^'\\]+ | \\. )*
         )
         '
         (?! [^']* \z )
      /
         $1 . "\\'"
      /xseg;
    }
    return %in_data;
}


sub settings_default
{
    my %c;

**kingkeith** · March 21, 2019, 11:36am

you may wish to report this at

Perl regex highlight is broken with 3200