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

[Graham B. <gb...@us...>]

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