Update Perl stringBody

Quote escapes are valid escapes in a single quote string body in Perl.
microsoft · May 30, 2024 · 8b6e6b7 · 8b6e6b7
1 parent a5e379c
commit 8b6e6b7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/basic-languages/perl/perl.ts b/src/basic-languages/perl/perl.ts
@@ -534,7 +534,7 @@ export const language = <languages.IMonarchLanguage>{
 
 		stringBody: [
 			[/'/, 'string', '@popall'],
-			[/\\'/, 'string.escape'],
+			[/\\'|\\\\/, 'string.escape'],
 			[/./, 'string']
 		],