trouble with perl-ldap 0.21 on perl 5.6.0

[Joe R. <ra...@hc...>]

[Sorry if someone has already reported this, I am not on the mailing
list and I tried checking the mailing list archives but can't get to
the web site right now.]

I have been running Net::LDAP version 0.2 for a while and it's been
fine.  Today I tried installing 0.21 but the install failed.  During
one of the tests, t/53schema, it loops forever until it runs out of
memory.  I narrowed the problem down to a small snippet of code and
found that it worked fine under perl 5.00503 but not under 5.6.0.
Finally, I made this change to Schema.pm:

*** Schema.pm.ORIG      Wed Aug 16 06:00:37 2000
--- Schema.pm   Thu Sep 14 13:08:13 2000
***************
*** 414,420 ****
  
        my @tokens;
        push @tokens, $+
!         while $val =~ /(?:^|\G)\s*(?:
                         ([()])
                        |
                         ([^"'\s()]+)
--- 414,420 ----
  
        my @tokens;
        push @tokens, $+
!         while $val =~ /(?:\G)\s*(?:
                         ([()])
                        |
                         ([^"'\s()]+)

Now it passes all the tests.  I don't know whether this change is
safe, nor whether this is really a bug in perl 5.6.0 or in Net::LDAP
0.21.

Joe