summaryrefslogtreecommitdiff
path: root/reentr.c
diff options
context:
space:
mode:
authormls@suse.de <mls@suse.de>2002-08-23 15:24:39 +0000
committerhv <hv@crypt.org>2002-08-25 15:46:28 +0000
commitd5abad05d3a299cfc0ce9e8cbf216938d6fad135 (patch)
tree085fcfd5f73e053db95655ecff694335d0b277da /reentr.c
parent8962dfd6c069786370901f53b09ae56ec61390dd (diff)
downloadperl-d5abad05d3a299cfc0ce9e8cbf216938d6fad135.tar.gz
[perl #16729] crypt() doesn't work in multithreaded perl
From: "mls@suse.de (via RT)" <perlbug@perl.org> Message-Id: <rt-16729-35555.9.25145891475907@bugs6.perl.org> p4raw-id: //depot/perl@17775
Diffstat (limited to 'reentr.c')
-rw-r--r--reentr.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/reentr.c b/reentr.c
index 310848e4cb..acbbac4563 100644
--- a/reentr.c
+++ b/reentr.c
@@ -148,6 +148,8 @@ Perl_reentrant_init(pTHX) {
#ifdef HAS_CRYPT_R
#ifdef __GLIBC__
PL_reentrant_buffer->_crypt_struct.initialized = 0;
+ /* work around glibc-2.2.5 bug */
+ PL_reentrant_buffer->_crypt_struct.current_saltbits = 0;
#endif
#endif /* HAS_CRYPT_R */
#ifdef HAS_CTIME_R