Change 18423 by jhi@lyta on 2003/01/04 03:12:42
spent_size was still off. (As far as I can tell
_SC_GETPW_R_SIZE_MAX is supposed to be used also
for spents, not just pwents.)
Affected files ...
... //depot/maint-5.8/perl/reentr.c#4 edit
... //depot/maint-5.8/perl/reentr.pl#4 edit
Differences ...
==== //depot/maint-5.8/perl/reentr.c#4 (text) ====
Index: perl/reentr.c
--- perl/reentr.c#3~18422~ Fri Jan 3 19:04:29 2003
+++ perl/reentr.c Fri Jan 3 19:12:42 2003
@@ -93,9 +93,9 @@
#endif /* HAS_GETSERVBYNAME_R */
#ifdef HAS_GETSPNAM_R
# if defined(HAS_SYSCONF) && defined(_SC_GETPW_R_SIZE_MAX) && !defined(__GLIBC__)
- PL_reentrant_buffer->_pwent_size = sysconf(_SC_GETPW_R_SIZE_MAX);
- if (PL_reentrant_buffer->_pwent_size == -1)
- PL_reentrant_buffer->_pwent_size = REENTRANTUSUALSIZE;
+ PL_reentrant_buffer->_spent_size = sysconf(_SC_GETPW_R_SIZE_MAX);
+ if (PL_reentrant_buffer->_spent_size == -1)
+ PL_reentrant_buffer->_spent_size = REENTRANTUSUALSIZE;
# else
# if defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ)
PL_reentrant_buffer->_spent_size = SIABUFSIZ;
==== //depot/maint-5.8/perl/reentr.pl#4 (text) ====
Index: perl/reentr.pl
--- perl/reentr.pl#3~18422~ Fri Jan 3 19:04:29 2003
+++ perl/reentr.pl Fri Jan 3 19:12:42 2003
@@ -505,8 +505,7 @@
EOF
my $sc = $genfunc eq 'grent' ?
'_SC_GETGR_R_SIZE_MAX' : '_SC_GETPW_R_SIZE_MAX';
- my $sz = $genfunc eq 'grent' ?
- '_grent_size' : '_pwent_size';
+ my $sz = "_${genfunc}_size";
push @size, <<EOF;
# if defined(HAS_SYSCONF) && defined($sc) && !defined(__GLIBC__)
PL_reentrant_buffer->$sz = sysconf($sc);
@@ -514,12 +513,12 @@
PL_reentrant_buffer->$sz = REENTRANTUSUALSIZE;
# else
# if defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ)
- PL_reentrant_buffer->_${genfunc}_size = SIABUFSIZ;
+ PL_reentrant_buffer->$sz = SIABUFSIZ;
# else
# ifdef __sgi
- PL_reentrant_buffer->_${genfunc}_size = BUFSIZ;
+ PL_reentrant_buffer->$sz = BUFSIZ;
# else
- PL_reentrant_buffer->_${genfunc}_size = REENTRANTUSUALSIZE;
+ PL_reentrant_buffer->$sz = REENTRANTUSUALSIZE;
# endif
# endif
# endif
End of Patch.
