On Wed, Jan 07, 2004 at 09:54:59PM +0000, Dave Mitchell wrote:
> On Wed, Jan 07, 2004 at 08:41:24AM -0800, Michael Peppler wrote:
> > If you have DBI installed, then the following script reproduces the
> > problem:
>
> Thanks. I've managed to strip that down to the following pure Perl test
> case that fails on bleedperl, so its not the fault of DBI.
Great. I don't need to hold up the release of DBI 1.40.
Thanks for that.
Tim.
> use threads;
>
> sub f {
> my $x;
> sub { $x->foo() };
> }
>
> threads->new(\&f)->join;
>
> Threads and closures. Doncha just love'em?
> (Hi ho, hi ho, it's off to debug I go...)
>
> --
> print+qq&$}$"$/$s$,[EMAIL PROTECTED],$:$.$q$^$,[EMAIL
> PROTECTED];$.$q$m&if+map{m,^\d{0\,},,${$::{$'}}=chr($"+=$&||1)}q&10m22,42}6:[EMAIL
> PROTECTED];^2dg3q/s"&=~m*\d\*.*g
