fail('bad password') if !defined $pw or $pw =~ m/[^0-9a-z]/;
my $pwhash= hash($pw);
- fail('bad vote') if $vote =~ m/[^0-9a-z]/;
+ fail('bad vote') if $vote =~ m/[^0-9a-z]/i;
$vote =~ y/a-z/A-Z/;
fail("invalid vote - consult administrator's instructions")