Forbid uppercase in list name as qmail doesn't support them

2019-10-04 16:50:10 +02:00 · 2019-10-04 16:50:10 +02:00 · db43b516b0
commit db43b516b0
parent 93b715e9b2
1 changed files with 1 additions and 1 deletions
--- 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)){