dougm 2002/10/21 20:56:30
Modified: . Changes
src/modules/perl modperl_interp.c
Log:
workaround glibc/Perl-5.8.0 crypt but with threaded MPMs
Revision Changes Path
1.57 +2 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -r1.56 -r1.57
--- Changes 22 Oct 2002 02:42:03 -0000 1.56
+++ Changes 22 Oct 2002 03:56:30 -0000 1.57
@@ -10,6 +10,8 @@
=item 1.99_08-dev
+workaround glibc/Perl-5.8.0 crypt() bug (seen with threaded MPMs)
+
fix delete $ENV{$key} bug
fix parse_args compat method to support non-ascii characters
1.53 +8 -0 modperl-2.0/src/modules/perl/modperl_interp.c
Index: modperl_interp.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_interp.c,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -r1.52 -r1.53
--- modperl_interp.c 27 Aug 2002 04:24:08 -0000 1.52
+++ modperl_interp.c 22 Oct 2002 03:56:30 -0000 1.53
@@ -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) {