On Tue, 2002-10-22 at 10:37, Doug MacEachern wrote: > does this patch (untested) cure the problem?
Works for me under all MPMs ;-) How about creating a new test script for all those workarounds/bugs ? --- /dev/null 2002-08-31 07:31:37.000000000 +0800 +++ t/response/TestAPI/bugs.pm 2002-10-22 11:30:57.000000000 +0800 @@ -0,0 +1,19 @@ +package TestAPI::bugs; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +sub handler { + my $r = shift; + + plan $r, tests => 1; + + #Perl crypt_r thread bug + ok crypt('foo','Dm') eq 'Dm8yjkphWW352'; + + Apache::OK; +} + +1; > > Index: src/modules/perl/modperl_interp.c > =================================================================== > RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_interp.c,v > retrieving revision 1.52 > diff -u -r1.52 modperl_interp.c > --- src/modules/perl/modperl_interp.c 27 Aug 2002 04:24:08 -0000 1.52 > +++ src/modules/perl/modperl_interp.c 22 Oct 2002 02:48:38 -0000 > @@ -63,6 +63,14 @@ > > interp->perl = perl_clone(perl, clone_flags); > > +#if defined(USE_REENTRANT_API) && defined(HAS_CRYPT_R) && defined(__GLIBC__) > + { > + dTHXa(interp->perl); > + /* workaround 5.8.0 bug */ > + PL_reentrant_buffer->_crypt_struct.current_saltbits = 0; > + } > +#endif > + > { > PTR_TBL_t *source = modperl_module_config_table_get(perl, FALSE); > if (source) { > > >
signature.asc
Description: This is a digitally signed message part