| Subject: | fix username validate |
| Date: | Mon, 3 Aug 2009 15:21:19 +0200 |
| To: | bug-Data-Validate-Email [...] rt.cpan.org |
| From: | Krzysztof Wojtaś <krzysin [...] gmail.com> |
Hi
fix:
--- a/lib/Data/Validate/Email.pm
+++ b/lib/Data/Validate/Email.pm
@@ -348,7 +348,7 @@ sub is_username{
return unless defined($value);
- my($username) = $value =~ /^([a-z0-9_\-\.]+)$/i;
+ my($username) = $value =~ /^([a-z0-9_\-\.+]+)$/i;
return $username;
}
diff --git a/lib/auto/Data/Validate/Email/is_username.al
b/lib/auto/Data/Validate/Email/is_username.al
index e2d07b0..902678a 100644
--- a/lib/auto/Data/Validate/Email/is_username.al
+++ b/lib/auto/Data/Validate/Email/is_username.al
@@ -13,7 +13,7 @@ sub is_username{
return unless defined($value);
- my($username) = $value =~ /^([a-z0-9_\-\.]+)$/i;
+ my($username) = $value =~ /^([a-z0-9_\-\.+]+)$/i;
return $username;
}