> Change line 73 in Threads::Semaphore.pm from: > > my $val : shared = @_ ? shift : 1; > > to: > > my $val = @_ ? shift : 1; > share( $val ); > > Preliminary test indicate to me thath this should work. > > Please make sure that you have -use-d forks _and_ forks::shared > before using Thread::Semaphore, otherwise Thread::Semaphore will load > the original threads::shared, and that _doesn't_ work. > > > Hope this helps.
It does. Many thanks Liz! -J
