diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-28 06:32:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-28 06:32:47 +0000 |
| commit | 0891a229ed34cb34ddb76f1813dcb76d39a174fb (patch) | |
| tree | 20ad4c23e4db58d98bc0b4a4f3ff7bb7b94f520c /reentr.c | |
| parent | 15f0f28a65432bb5e8f8e84f9d63806555182655 (diff) | |
| download | perl-0891a229ed34cb34ddb76f1813dcb76d39a174fb.tar.gz | |
Detecting errors of reentrant APIs: getgrgid_r and the like
when returning an int can either return the error in the return
value or in the errno. We need a new per-interp variable to store
the return value instead of clobbering the errno with it. The new
variable, PL_reentrant_retint, is only used within the reentrancy
framework, and immediately after it's set, so there should not be
similar visibility issues as for the errno. Spotted by Edward Moy.
p4raw-id: //depot/perl@19357
Diffstat (limited to 'reentr.c')
| -rw-r--r-- | reentr.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -301,7 +301,7 @@ Perl_reentrant_retry(const char *f, ...) dTHX; void *retptr = NULL; #ifdef USE_REENTRANT_API -# if defined(USE_HOSTENT_BUFFER) || defined(USE_GRENT_BUFFER) || defined(USE_NETENT_BUFFER) || defined(USE_PWENT_BUFFER) || defined(USE_PROTOENT_BUFFER) || defined(USE_SRVENT_BUFFER) +# if defined(USE_HOSTENT_BUFFER) || defined(USE_GRENT_BUFFER) || defined(USE_NETENT_BUFFER) || defined(USE_PWENT_BUFFER) || defined(USE_PROTOENT_BUFFER) || defined(USE_SERVENT_BUFFER) void *p0; # endif # if defined(USE_SERVENT_BUFFER) |