From db43b516b0330a2a073ab43daa3c98a9a4e0b375 Mon Sep 17 00:00:00 2001 From: Daniel Berteaud 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)){