From: Peter Prymmer <PPrymmer@factset.com>
Date: Tue, 3 Oct 2000 12:05:59 +0000 (-0700)
Subject: PWPASSWD problem for passwd less pwd's
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e020c87d6f7ea3827bebbe7b39b6e63992dab130;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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.