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}) . ")";
|
