From a91bc9c1546be3dbdecb54d16b02880b52022539 Mon Sep 17 00:00:00 2001
From: Nik Ogura <nik@plainblack.com>
Date: Sat, 31 Mar 2007 21:24:29 +0000
Subject: [PATCH] Altered regex to allow '+' in email address

---
 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 544e4f2a8..50addd741 100644
--- a/lib/WebGUI/Form/Email.pm
+++ b/lib/WebGUI/Form/Email.pm
@@ -79,7 +79,7 @@ Returns a validated email address. If the result does not pass validation, it re
 sub getValueFromPost {
 	my $self = shift;
 	my $value = $self->session->form->param($self->get("name"));
-	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) {
+	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;