PWPASSWD problem for passwd less pwd's

Message-ID: <Pine.OSF.4.10.10010031203470.388222-100000@aspara.forte.com>

p4raw-id: //depot/perl@7138

diff --git a/pp_sys.c b/pp_sys.c
index 7473ba5..5fa86d6 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4972,8 +4972,10 @@ PP(pp_gpwent)
                sv_setpv(sv, spwent->sp_pwdp);
        }
 #   endif
+#   ifdef PWPASSWD
        if (!SvPOK(sv)) /* Use the standard password, then. */
            sv_setpv(sv, pwent->pw_passwd);
+#   endif
 
 #   ifndef INCOMPLETE_TAINTS
        /* passwd is tainted because user himself can diddle with it.