From: Matt S. <se...@co...> - 2002-09-10 05:20:58
|
status Reply-To: Net::LDAP::Filter seems to have regressed when used on perl 5.004_04 I'm getting this error message when running a script that uses Net::LDAP /^(\\.|[^\\*]*)*\*/: regexp *+ operand could be empty at /opt/ACISperl5004/lib/site_perl/Net/LDAP/Filter.pm line 120. This seems to have been fixed (from the CVS logs) in Net::LDAP::Filter 1.4 http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/perl-ldap/ldap/lib/Net/LDAP/Filter.pm.diff?r1=1.3&r2=1.4 It seems to have seen broken again between versions 1.5 and 1.6: http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/perl-ldap/ldap/lib/Net/LDAP/Filter.pm.diff?r1=1.5&r2=1.6 This patch should fix the problem again. $ diff -u /opt/ACISperl5004/lib/site_perl/Net/LDAP/Filter.pm /tmp/Filter.pm --- /opt/ACISperl5004/lib/site_perl/Net/LDAP/Filter.pm Thu Jan 31 09:02:25 2002 +++ /tmp/Filter.pm Tue Sep 10 01:19:02 2002 @@ -117,7 +117,7 @@ # If the op is = and contains one or more * not # preceeded by \ then do partial matches - if ($op eq '=' && $val =~ /^(\\.|[^\\*]*)*\*/o ) { + if ($op eq '=' && $val =~ /^(\\.|[^\\*]+)*\*/o ) { my $n = []; my $type = 'initial'; |