change on schema.pm

[Mark W. <mew...@un...>]

Hi,
I've been playing with Net::LDAP::Schema on version .018 of Net::LDAP.
Discovered that it kept crashing for my test script at Schema.pm line
433.

This was
( $token, $value ) = $value =~
/^[\s,]*(["']?[^"'\s()]+["']?[,\s]*)(.*)$/;
    die( "Failed to parse token from value [$value]" ) unless $token;

I changed to
( $token, $value ) = $value =~
/^[\s,]*(["']?[^"'\s()]+["']?[,\s]*)(.*)$/;
    last unless $token;
    die( "Failed to parse token from value [$value]" ) unless $token;

that seems to have fixed it.

I'd send a diff but I'm at home on NT and don't have a diff (if anyone
knows an NT binary of diff, I'd be much obliged if you'd show me a URL
;).

Mark