Hi, On Monday, 16. July 2007 19:42, Robin Redeker wrote: > On Mon, Jul 16, 2007 at 05:31:36AM -0500, Graham Barr wrote: > > On Jul 15, 2007, at 2:58 AM, Robin Redeker wrote: > > >Hi! > > > > > >First: http://ldap.perl.org/ says last release of perl-ldap > > >was (April 2005) but the changes file says: > > > > > > perl-ldap 0.34 -- Sat Feb 10 17:39:49 CST 2007 > > > > > > > > >I've spotted a problem in the Authen::SASL::Perl implementation. > > >To be more precise in Authen::SASL::Perl::DIGEST_MD5: > > > > > >In client_step there is following code to parse the challenge: > > > > > > while($challenge =~ s/^(?:\s*,)?\s*(\w+)=("([^\\"]+|\\.)*"|[^,]+) > > >\s*//) { > > > > Would it not have worked to just change that first ? to be a * and > > add (?:,\s*)* to the end > > > > while($challenge =~ s/^(?:\s*,)*\s*(\w+)=("([^\\"]+|\\.)*"|[^,]+) > > \s*(?:,\s*)*//) { > > > > Graham. > > Yes, that seems to work too.
Committed to SVN Thanks Peter -- Peter Marschall [EMAIL PROTECTED]
