| Subject: | email w/spaces checks out as valid (0.179) |
Spaces in an email address, even if fudge is off, still seem to make the
email address pass. For example:
[snip]
#!/usr/bin/perl -w
use strict;
use lib qw(./ ./DADA/perllib ../ ../DADA/perllib ../../
../../DADA/perllib);
use Test::More qw(no_plan);
use Email::Valid;
use Email::Valid;
# pass.
ok(defined(Email::Valid->address('user@example.com')));
# pass?...
ok(defined(Email::Valid->address('user @example.com')));
# pass again?
# pass?...
ok(defined(Email::Valid->address(-address => 'user @example.com', -fudge
=> 0)));
ok(defined(Email::Valid->address(-address => 'user@ example.com', -fudge
=> 0)));
#
ok(defined(Email::Valid->address(-address => 'user @example.com', -fudge
=> undef)));
# Just in case...
ok(defined(Email::Valid->address(-address => 'user @example.com', -fudge
=> 'FALSE')));
[/snip]
Is this correct? I thought, "-fudge" was there to explicitly allow spaces.