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