HP-UX has also endgrent_r/endpwent_r marked obsolete.
Jarkko Hietaniemi [Sat, 16 Mar 2002 16:11:49 +0000 (16:11 +0000)]
p4raw-id: //depot/perl@15253

Porting/findrfuncs
reentr.h
reentr.pl

index 029bdd0..4254a7a 100644 (file)
@@ -66,6 +66,8 @@ my $netdb_r_obsolete;
 if ($^O eq 'hpux') {
     delete $rfuncs{crypt_r};
     delete $rfuncs{drand48_r};
+    delete $rfuncs{endgrent_r};
+    delete $rfuncs{endpwent_r};
     delete $rfuncs{getgrent_r};
     delete $rfuncs{getpwent_r};
     delete $rfuncs{setlocale_r};
index be2f617..310fe97 100644 (file)
--- a/reentr.h
+++ b/reentr.h
@@ -24,6 +24,8 @@
 #ifdef __hpux
 #   undef HAS_CRYPT_R
 #   undef HAS_DRAND48_R
+#   undef HAS_ENDGRENT_R
+#   undef HAS_ENDPWENT_R
 #   undef HAS_GETGRENT_R
 #   undef HAS_GETPWENT_R
 #   undef HAS_SETLOCALE_R
index efa0724..3c529b6 100644 (file)
--- a/reentr.pl
+++ b/reentr.pl
@@ -64,6 +64,8 @@ print <<EOF;
 #ifdef __hpux
 #   undef HAS_CRYPT_R
 #   undef HAS_DRAND48_R
+#   undef HAS_ENDGRENT_R
+#   undef HAS_ENDPWENT_R
 #   undef HAS_GETGRENT_R
 #   undef HAS_GETPWENT_R
 #   undef HAS_SETLOCALE_R