This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[inseparable changes from match from perl-5.003_97 to perl-5.003_97a]
[perl5.git] / pp_sys.c
index 00012c3..45290d6 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3991,7 +3991,7 @@ PP(pp_gpwent)
 PP(pp_spwent)
 {
     dSP;
 PP(pp_spwent)
 {
     dSP;
-#ifdef HAS_PASSWD
+#if defined(HAS_PASSWD) && !defined(CYGWIN32)
     setpwent();
     RETPUSHYES;
 #else
     setpwent();
     RETPUSHYES;
 #else