diff options
author | jkh <jkh@FreeBSD.org> | 1995-05-20 13:05:22 +0000 |
---|---|---|
committer | jkh <jkh@FreeBSD.org> | 1995-05-20 13:05:22 +0000 |
commit | 055f32000d36d17d799c0e3e14b7bc82e17f4426 (patch) | |
tree | 13522e058eb3c57124d1d3f541cbda94400d4b9a /usr.sbin/adduser/adduser.perl | |
parent | 0a57ef9d20731f6ba1c2757f86206f49b9c12f45 (diff) | |
download | FreeBSD-src-055f32000d36d17d799c0e3e14b7bc82e17f4426.zip FreeBSD-src-055f32000d36d17d799c0e3e14b7bc82e17f4426.tar.gz |
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 'usr.sbin/adduser/adduser.perl')
-rw-r--r-- | usr.sbin/adduser/adduser.perl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/usr.sbin/adduser/adduser.perl b/usr.sbin/adduser/adduser.perl index ab09e1d..5d27ddb 100644 --- a/usr.sbin/adduser/adduser.perl +++ b/usr.sbin/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 |