From 88ddbbd26f131c91e19d061b268164fd2e326734 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Wed, 9 Apr 2008 17:09:35 +0000
Subject: [PATCH] fix email regex typo

---
 lib/WebGUI/Form/Email.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Form/Email.pm b/lib/WebGUI/Form/Email.pm
index 689f95695..624c1aae4 100644
--- a/lib/WebGUI/Form/Email.pm
+++ b/lib/WebGUI/Form/Email.pm
@@ -83,7 +83,7 @@ An optional value to process instead of POST input.
 sub getValueFromPost {
 	my $self = shift;
 	my $value = @_ ? shift : $self->session->form->param($self->get("name"));
-	if ($value =~ /^[0-9a-z,_%+-]+@(?:[0-9a-z-]+\.)+[a-z]{2,9})$/i) {
+	if ($value =~ /^[0-9a-z,_%+-]+@(?:[0-9a-z-]+\.)+[a-z]{2,9}$/i) {
 		return $value;
 	}
 	return undef;