From: Graham B. <gb...@us...> - 2002-01-31 14:04:18
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv28281/lib/Net/LDAP Modified Files: Filter.pm Log Message: Fix uninit warning Index: Filter.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Filter.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- Filter.pm 2002/01/09 17:19:47 1.6 +++ Filter.pm 2002/01/31 14:04:15 1.7 @@ -257,7 +257,8 @@ return "($_[1]->{type}=$str)"; }; /^extensibleMatch/ and do { - my $str = "($_[1]->{type}"; + my $str = "("; + $str .= $_[1]->{type} if defined $_[1]->{type}; $str .= ":dn" if $_[1]->{dnAttributes}; $str .= ":$_[1]->{matchingRule}" if defined $_[1]->{matchingRule}; $str .= ":=" . _escape($_[1]->{matchValue}) . ")"; |