disallow leading whitespace on email validation rule

tonycoz · Feb 25, 2014 · 74a3bc3 · 74a3bc3
1 parent 6aa67dd
commit 74a3bc3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/site/cgi-bin/modules/DevHelp/Validate.pm b/site/cgi-bin/modules/DevHelp/Validate.pm
@@ -6,7 +6,7 @@ use vars qw(@EXPORT_OK @ISA);
 @ISA = qw(Exporter);
 use Carp qw(confess);
 
-our $VERSION = "1.006";
+our $VERSION = "1.007";
 
 my $re_real =
   qr/
@@ -25,7 +25,7 @@ my %built_ins =
   (
    email => 
    {
-    match => qr/^[^\@]+\@[\w.-]+\.\w+$/,
+    match => qr/^[^\s\@][^\@]*\@[\w.-]+\.\w+$/,
     error => '$n is not a valid email address',
    },
    phone =>