From d18f6db7bae409d11d035520a0a1a08cfe5af092 Mon Sep 17 00:00:00 2001 From: Jin Cao Date: Wed, 29 May 2024 22:23:52 -0400 Subject: [PATCH 1/2] Update Perl stringBody Backslash escapes are valid escapes in a single quote string body in Perl. --- src/basic-languages/perl/perl.ts | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/basic-languages/perl/perl.ts b/src/basic-languages/perl/perl.ts index 883d34ea78..f6a323c74a 100644 --- a/src/basic-languages/perl/perl.ts +++ b/src/basic-languages/perl/perl.ts @@ -534,7 +534,7 @@ export const language = { stringBody: [ [/'/, 'string', '@popall'], - [/\\'/, 'string.escape'], + [/\\'|\\\\/, 'string.escape'], [/./, 'string'] ], From cea14f4dd55f52513c195b3369b211ddeab779d6 Mon Sep 17 00:00:00 2001 From: Jin Cao Date: Wed, 29 May 2024 23:56:39 -0400 Subject: [PATCH 2/2] Simplify stringBody escape regex --- src/basic-languages/perl/perl.ts | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/basic-languages/perl/perl.ts b/src/basic-languages/perl/perl.ts index f6a323c74a..a7c25a451e 100644 --- a/src/basic-languages/perl/perl.ts +++ b/src/basic-languages/perl/perl.ts @@ -534,7 +534,7 @@ export const language = { stringBody: [ [/'/, 'string', '@popall'], - [/\\'|\\\\/, 'string.escape'], + [/\\['\\]/, 'string.escape'], [/./, 'string'] ],