[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Filter.pm,1.8,1.9

[Chris R. <chr...@us...>]

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*//;