From e2c869cbfe54894510133c8ead54cb72b9f9f795 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Sat, 10 Feb 1996 17:15:47 +0000
Subject: Submitted by:	Masafumi NAKANE <masafumi@tky007.tth.expo96.ad.jp>
 bugfix: chown home directory if don't copy dotfiles

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

(limited to 'adduser')

diff --git a/adduser/adduser.perl b/adduser/adduser.perl
index 5b548e6..00556a1 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.8 1995/10/19 06:26:49 jkh Exp $
+# $Id: adduser.perl,v 1.9 1995/10/22 11:44:16 jkh Exp $
 #
 
 # read variables
@@ -938,7 +938,13 @@ sub home_create {
 	return 0;
     }
 
-    return mkdir("$homedir",0755) if $dotdir eq "no";
+    if ($dotdir eq 'no') {
+	if (!mkdir("$homedir",0755)) {
+	    warn "mkdir $homedir: $!\n"; return 0;
+	}
+	system 'chown', "$name:$group", $homedir;
+	return !$?;
+    }
 
     # copy files from  $dotdir to $homedir
     # rename 'dot.foo' files to '.foo'
-- 
cgit v1.2.3-56-ge451