diff options
| author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-04-28 17:51:04 +0200 |
|---|---|---|
| committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-04-28 17:51:04 +0200 |
| commit | 21ac651a4d40472515f5f7d0dd0cd7d27682ee50 (patch) | |
| tree | a6facdc7e832399778bdd6169910530856590a6f /lib | |
| parent | 5dd3d8d080b56d742de3c4b4782cfcde72c3f16f (diff) | |
wibble
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Fripost/Schema/Type/User.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Fripost/Schema/Type/User.pm b/lib/Fripost/Schema/Type/User.pm index f5b6ce2..c3075a8 100644 --- a/lib/Fripost/Schema/Type/User.pm +++ b/lib/Fripost/Schema/Type/User.pm @@ -20,7 +20,9 @@ sub search { my $self = shift; my $user = shift; - my ($username, $domain) = split /\@/, $user->{username}, 2; + my ($username, $domain); + ($username, $domain) = split /\@/, $user->{username}, 2 + if defined $user->{username}; my $base = $self->{_options}->{base_dn}; $base = join ',', ( 'dc='.$domain, $base ) |