From allen@huarp.harvard.edu

  defined(HAS_GETSPNAM) && ! defined(HAS_GETSPENT)

which is true for QNX4.

exit 0

*** perl5.005_58.ORIG/pp_sys.c Tue Jul 27 00​:47​:13 1999
--- perl5.005_58/pp_sys.c Wed Jul 28 12​:34​:58 1999
***************
*** 4617,4623 ****
  register SV *sv;
  struct passwd *pwent;
  STRLEN n_a;
! #ifdef HAS_GETSPENT
  struct spwd *spwent = NULL;
  #endif
 
--- 4617,4623 ----
  register SV *sv;
  struct passwd *pwent;
  STRLEN n_a;
! #if defined(HAS_GETSPENT) || defined(HAS_GETSPNAM)
  struct spwd *spwent = NULL;
  #endif
 
***************
*** 4639,4646 ****
--- 4639,4648 ----
  spwent = getspnam(pwent->pw_name);
  }
  # endif
+ # ifdef HAS_GETSPENT
  else
  spwent = (struct spwd *)getspent();
+ # endif
  #endif
 
  EXTEND(SP, 10);
***************
*** 4661,4667 ****
 
  PUSHs(sv = sv_mortalcopy(&PL_sv_no));
  #ifdef PWPASSWD
! # ifdef HAS_GETSPENT
  if (spwent)
  sv_setpv(sv, spwent->sp_pwdp);
  else
--- 4663,4669 ----
 
  PUSHs(sv = sv_mortalcopy(&PL_sv_no));
  #ifdef PWPASSWD
! # if defined(HAS_GETSPENT) || defined(HAS_GETSPNAM)
  if (spwent)
  sv_setpv(sv, spwent->sp_pwdp);
  else