diff options
author | Jordan K. Hubbard <jkh@FreeBSD.org> | 1995-05-20 13:05:22 +0000 |
---|---|---|
committer | Jordan K. Hubbard <jkh@FreeBSD.org> | 1995-05-20 13:05:22 +0000 |
commit | e2d544440d32098894c20d83509b6e724fc543c0 (patch) | |
tree | 2397dd6461cf747b51f080c4aafe6644aeb0b0d0 /adduser | |
parent | 0f2d75f87e1699bbb29b93fbdaf5d81d9e65d498 (diff) | |
download | pw-darwin-e2d544440d32098894c20d83509b6e724fc543c0.tar.gz pw-darwin-e2d544440d32098894c20d83509b6e724fc543c0.tar.zst pw-darwin-e2d544440d32098894c20d83509b6e724fc543c0.zip |
The problem is the returned salt, while the freebsd man pages asks that the
crypt salt string begin with a '_', no other crypt's do. If you remove the
initialization of $salt to '_' in sub salt(), everything works as advertised.
Submitted by: Charles Henrich <henrich@crh.cl.msu.edu>
Diffstat (limited to 'adduser')
-rw-r--r-- | adduser/adduser.perl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/adduser/adduser.perl b/adduser/adduser.perl index ab09e1d..5d27ddb 100644 --- a/adduser/adduser.perl +++ b/adduser/adduser.perl @@ -32,7 +32,7 @@ # # Email: Wolfram Schneider <wosch@cs.tu-berlin.de> # -# $Id: adduser.perl,v 1.5 1995/04/09 03:34:10 ache Exp $ +# $Id: adduser.perl,v 1.6 1995/04/30 19:20:25 ache Exp $ # # read variables @@ -796,7 +796,7 @@ sub uniq { # see /usr/src/usr.bin/passwd/local_passwd.c or librcypt, crypt(3) sub salt { - local($salt) = '_'; # initialization + local($salt); # initialization local($i, $rand); local(@itoa64) = ( 0 .. 9, a .. z, A .. Z ); # 0 .. 63 |