first round of Perl::Critic cleanups. Do not use return undef, use a bare return instead

lib/WebGUI/Form/Email.pm

@@ -86,7 +86,7 @@ sub getValueFromPost {
 	if ($value =~ /^([0-9a-zA-Z]([-.+\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$/i) {
 		return $value;
 	}
-	return undef;
+	return;
 }
 
 #-------------------------------------------------------------------