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 | 5abeec02fe42e85acd795e32b98e316256edd597 (patch) | |
| tree | 66d60eac4d4f48c943bc480c5c2925bb1b7f2c30 | |
| parent | 54314e8b40c035b3b3df6ea35ae37c4753d95d6b (diff) | |
| download | pw-darwin-5abeec02fe42e85acd795e32b98e316256edd597.tar.gz pw-darwin-5abeec02fe42e85acd795e32b98e316256edd597.tar.zst pw-darwin-5abeec02fe42e85acd795e32b98e316256edd597.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>
| -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 |