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)){