From bb321bcb890cac5c995d959b3e16d704444e50d8 Mon Sep 17 00:00:00 2001
From: Andrei Markeev <andrei-markeev@users.noreply.github.com>
Date: Sun, 29 Dec 2024 23:49:29 +0200
Subject: [PATCH] fix regexp

---
 src/Parser.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Parser.pm b/src/Parser.pm
index 4eaaca6..e616b5a 100644
--- a/src/Parser.pm
+++ b/src/Parser.pm
@@ -97,7 +97,7 @@ C1: goto E2 if (pos==length);
     $w.="\003$1" if (/\G(.)/sgc);
     goto $ps;
 
-V1: if (m/\G{([^}]*)}/sgc || m/\G(\d)/sgc || m/\G(\w+)/sgc) { $w.="\001$1\001" }
+V1: if (m/\G\{([^}]*)\}/sgc || m/\G(\d)/sgc || m/\G(\w+)/sgc) { $w.="\001$1\001" }
     goto $ps;
 
 E1: $w='' if (!defined($w) && $wl[2]==1);
@@ -149,7 +149,7 @@ Q2: goto E1 if (pos==length);
     $result.=$1 if (/\G(.)/sgc);
     goto S0;
 
-V1: if (m/\G{([^}]*)}/sgc || m/\G(\d)/sgc || m/\G(\w+)/sgc) { $result.="\001$1\001" }
+V1: if (m/\G\{([^}]*)\}/sgc || m/\G(\d)/sgc || m/\G(\w+)/sgc) { $result.="\001$1\001" }
     goto S0;
 
 C1: goto E1 if (pos==length);