From 3ae4c8692b4fb08adbdcbb44f8bade78141c56bb Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 11 May 2008 04:39:55 +0000
Subject: [PATCH] forward porting email fix from 7.4

---
 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 ddde46e87..4c1c77e01 100644
--- a/lib/WebGUI/Form/Email.pm
+++ b/lib/WebGUI/Form/Email.pm
@@ -65,7 +65,7 @@ An optional value to process instead of POST input.
 sub getValue {
 	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;