diff options
| author | fukachan <fukachan> | 2001-10-08 15:47:28 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-08 15:47:28 +0000 |
| commit | 9ded9eedc2df7efe1252dd05e7206270aca328a8 (patch) | |
| tree | e1da7b60689199fd448a1ff944099e896090a9ef /fml/lib | |
| parent | 2a9afe09a5ccf3b97cf404eab228dafb7cf4c2e1 (diff) | |
| download | fml8-9ded9eedc2df7efe1252dd05e7206270aca328a8.tar.gz fml8-9ded9eedc2df7efe1252dd05e7206270aca328a8.tar.bz2 fml8-9ded9eedc2df7efe1252dd05e7206270aca328a8.zip | |
more severe initialization check
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Credential.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm index 16c7a752..4abfebf0 100644 --- a/fml/lib/FML/Credential.pm +++ b/fml/lib/FML/Credential.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Credential.pm,v 1.12 2001/06/29 05:57:32 fukachan Exp $ +# $FML: Credential.pm,v 1.13 2001/08/26 12:57:05 fukachan Exp $ # package FML::Credential; @@ -112,7 +112,14 @@ sub is_member my $member_maps = $curproc->{ config }->{ member_maps }; my $address = $curproc->{'credential'}->{'sender'}; - my ($user, $domain) = split(/\@/, $address); + my ($user, $domain) = (); + + if (defined $address) { + ($user, $domain) = split(/\@/, $address); + } + else { + return $status; + } use IO::Adapter; |