Re: bleedperl crypt_buffer changes

[Geoffrey Young]

ok, I figured it out.  the relevant change is

http://mirrors.develooper.com/perl/APC/perl-current-diffs/19122.gz

and my previous patch dumped core.

here's a new one.

--Geoff

cvs server: Diffing src/modules/perl
Index: src/modules/perl/mod_perl.c
===================================================================
RCS file: /home/cvspublic/modperl-2.0/src/modules/perl/mod_perl.c,v
retrieving revision 1.162
diff -u -r1.162 mod_perl.c
--- src/modules/perl/mod_perl.c 25 Mar 2003 07:52:22 -0000      1.162
+++ src/modules/perl/mod_perl.c 2 Apr 2003 14:56:37 -0000
@@ -182,7 +182,8 @@
 #if defined(USE_REENTRANT_API) && defined(HAS_CRYPT_R) && defined(__GLIBC__)
     /* workaround perl5.8.0/glibc bug */
-    PL_reentrant_buffer->_crypt_struct.current_saltbits = 0;
+    if (PL_reentrant_buffer->_crypt_struct_buffer)
+        PL_reentrant_buffer->_crypt_struct_buffer->current_saltbits = 0;
 #endif
     perl_run(perl);
Index: src/modules/perl/modperl_interp.c
===================================================================
RCS file: /home/cvspublic/modperl-2.0/src/modules/perl/modperl_interp.c,v
retrieving revision 1.57
diff -u -r1.57 modperl_interp.c
--- src/modules/perl/modperl_interp.c   27 Mar 2003 22:10:35 -0000      1.57
+++ src/modules/perl/modperl_interp.c   2 Apr 2003 14:56:37 -0000
@@ -67,7 +67,8 @@
         {
             dTHXa(interp->perl);
             /* workaround 5.8.0 bug */
-            PL_reentrant_buffer->_crypt_struct.current_saltbits = 0;
+            if (PL_reentrant_buffer->_crypt_struct_buffer)
+                PL_reentrant_buffer->_crypt_struct_buffer->current_saltbits 
= 0;
         }
 #endif

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]