projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f2f2544
)
PWPASSWD problem for passwd less pwd's
author
Peter Prymmer
<PPrymmer@factset.com>
Tue, 3 Oct 2000 12:05:59 +0000
(
05:05
-0700)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 3 Oct 2000 21:49:49 +0000
(21:49 +0000)
Message-ID: <Pine.OSF.4.10.
10010031203470
.388222-100000@aspara.forte.com>
p4raw-id: //depot/perl@7138
pp_sys.c
patch
|
blob
|
history
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.