disallow leading whitespace on email validation rule

diff --git a/site/cgi-bin/modules/DevHelp/Validate.pm b/site/cgi-bin/modules/DevHelp/Validate.pm
index dbdc071f1cb7ae8214b061fd023d961fea2e4e9a..c8d2d2936277fe00c5c136681d8ae855a0198b48 100644 (file)
--- 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 =>