From: Chris R. <chr...@us...> - 2004-02-07 20:16:06
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11325/lib/Net/LDAP Modified Files: Filter.pm Log Message: Fix for missing filter from Peter Marschall Index: Filter.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Filter.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- Filter.pm 11 Sep 2002 12:49:11 -0000 1.8 +++ Filter.pm 7 Feb 2004 18:36:41 -0000 1.9 @@ -159,6 +159,12 @@ undef $ErrStr; + # a filter is required + if (!defined $filter) { + $ErrStr = "Undefined filter"; + return undef; + } + # Algorithm depends on /^\(/; $filter =~ s/^\s*//; |