Wrongly colored perl expression

[polina-c]

• VSCode Version: 1.1.1
• OS Version: mac os

Steps to Reproduce:

[aeschli]

@pcherkasova Can you paste the full snippet?

[polina-c]

Here you are:

sub parse_name {
my ($f, $m, $l, $s) = (undef, undef, undef, undef);
{
my $x = $[0];
last unless defined $x;
$x =~ s/\s(['-])\s_/$1/g;
my @p = grep /^./, split /[^[:alpha:]'-]/i, $x;
last unless scalar @p;
$s = pop @p if $p[$#p] =~ /^(I|II|III|IV|V|Jr|Sr)$/i;
last if scalar @p == 0;
$f = $p[0], last if scalar @p == 1;
my $mp;
for (my $i = $#p - 1; $i >= 0; $i--) {
$mp = $i, last if length $p[$i] == 1;
}
if (!defined $mp) {
($f, $l) = ($p[0], (join ' ', @p[1 .. $#p]));
}
elsif ($mp == 0) {
if (scalar @p > 2) {
($f, $m, $l) = ($p[0], $p[1], (join ' ', @p[2 .. $#p]));
}
else {
($f, $l) = @p;
}
}
else {
($f, $m, $l) = ((join ' ', @p[0 .. $mp - 1]), $p[$mp], (join ' ', @p[$mp + 1 .. $#p]));
}
}
($f, $m, $l, $s);
}

[cid:98af86f9-e187-4937-82e2-4b1f42fd60ab]

---

From: Martin Aeschlimann [email protected]
Sent: Wednesday, June 15, 2016 12:18 PM
To: Microsoft/vscode
Cc: pcherkasova; Mention
Subject: Re: [Microsoft/vscode] Wrongly colored perl expression (#7270)

@pcherkasovahttps://github.com/pcherkasova Can you paste the full snippet?

You are receiving this because you were mentioned.
Reply to this email directly, view it on GitHubhttps://github.com//issues/7270#issuecomment-226291528, or mute the threadhttps://github.com/notifications/unsubscribe/ALjegk93Vsxvy65osD51geUidZ14JVU5ks5qMFAVgaJpZM4IvWwB.

[aeschli]

This issue was moved to textmate/perl.tmbundle#21