From db43b516b0330a2a073ab43daa3c98a9a4e0b375 Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Fri, 4 Oct 2019 16:50:10 +0200
Subject: [PATCH] Forbid uppercase in list name as qmail doesn't support them

---
 root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/minilist.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/minilist.pm b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/minilist.pm
index 6dd8234..a316c83 100644
--- a/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/minilist.pm
+++ b/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/minilist.pm
@@ -173,7 +173,7 @@ sub delete_list {
 sub validate_list_name {
     my $fm = shift;
     my $name = shift;
-    unless ($name =~ /^([a-zA-Z0-9][\_\.\-a-zA-Z0-9]*)$/){
+    unless ($name =~ /^([a-z0-9][\_\.\-a-z0-9]*)$/){
         return $fm->localise('INVALID_CHARS',{string => $name});
     }
     if ($a->get($name)){