Re: Net::LDAP::Filter gives warnings on perl 5.004_04

[Matt S. <se...@co...>]

Please find more complete patches to get Net::LDAP working with perl 
5.004_04 attached.

Net/LDAP/Filter.pm and Net/LDAP/Search.pm have been patched.

> 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';