From: =?utf-8?b?0L3QsNCx?= <nabijaczleweli@nabijaczleweli.xyz>
Date: Sat, 24 May 2025 20:05:22 +0200
Subject: haskell_count: Unescaped left brace in regex is passed through in
 regex errors

---
 haskell_count | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/haskell_count b/haskell_count
index 21299aa..ce48d3f 100755
--- a/haskell_count
+++ b/haskell_count
@@ -70,7 +70,7 @@ sub determine_lit_type {
 
   open (FILE, $file);
   while (<FILE>) {
-    if (m/^\\begin{code}/) { close FILE; return 2; }
+    if (m/^\\begin\{code}/) { close FILE; return 2; }
     if (m/^>\s/) { close FILE; return 1; }
   }
 
@@ -92,9 +92,9 @@ sub count_file {
       if (!s/^>//) { s/.*//; }
     } elsif ($literate == 2) {
       if ($inlitblock) {
-        if (m/^\\end{code}/) { s/.*//; $inlitblock = 0; }
+        if (m/^\\end\{code}/) { s/.*//; $inlitblock = 0; }
       } elsif (!$inlitblock) {
-        if (m/^\\begin{code}/) { s/.*//; $inlitblock = 1; }
+        if (m/^\\begin\{code}/) { s/.*//; $inlitblock = 1; }
         else { s/.*//; }
       }
     }