From e2d544440d32098894c20d83509b6e724fc543c0 Mon Sep 17 00:00:00 2001
From: "Jordan K. Hubbard" <jkh@FreeBSD.org>
Date: Sat, 20 May 1995 13:05:22 +0000
Subject: 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>

---
 adduser/adduser.perl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'adduser')

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
 
-- 
cgit v1.2.3-56-ge451