mutt-licom.pl is working now.

[licom.git] / lib / LiCoM / Person.pm

diff --git a/lib/LiCoM/Person.pm b/lib/LiCoM/Person.pm
index d51ad28..cbc2eab 100644 (file)
--- a/lib/LiCoM/Person.pm
+++ b/lib/LiCoM/Person.pm
@@ -304,7 +304,7 @@ sub search
                $filter = '(objectclass=inetOrgPerson)';
        }
 
-       print STDERR "Debug: using filter: $filter";
+       #print STDERR "Debug: using filter: $filter";
        
        $mesg = $Ldap->search
        (
@@ -442,6 +442,9 @@ sub AUTOLOAD
        my $obj = shift;
        my @values = @_;
        my $field = $Person::AUTOLOAD;
+
+       return (undef) unless ($field);
+       
        $field =~ s/.*:://;
 
        return (set ($obj, $field, @values ? [@values] : undef))