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. Robin
