From 06325fde90ccf916e9ad8db69fa767bb3eaa7f19 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Sat, 26 Sep 2020 11:17:56 +0200
Subject: Elm/Extlinks: Use case sensitive url matching in forms

As the server side does the same. Partial fix for
https://vndb.org/t2520.492
---
 lib/VNWeb/Elm.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/VNWeb/Elm.pm b/lib/VNWeb/Elm.pm
index 13165959..b6a3b710 100644
--- a/lib/VNWeb/Elm.pm
+++ b/lib/VNWeb/Elm.pm
@@ -438,7 +438,7 @@ sub write_extlinks {
           , patt  : List String
           }
 
-        reg r = Maybe.withDefault Regex.never (Regex.fromStringWith {caseInsensitive=True, multiline=False} r)
+        reg r = Maybe.withDefault Regex.never (Regex.fromStringWith {caseInsensitive=False, multiline=False} r)
         delidx n l = List.take n l ++ List.drop (n+1) l
         toint v = Maybe.withDefault 0 (String.toInt v)
 
-- 
cgit v1.2.3