diff options
| author |   Wolfram Schneider <wosch@FreeBSD.org> | 1996-09-14 23:22:23 +0000 |
|---|---|---|
| committer | Wolfram Schneider <wosch@FreeBSD.org> | 1996-09-14 23:22:23 +0000 |
| commit | 980d1d3590a81bcb215ee01a375accbd23d1d6f6 (patch) | |
| tree | d705250a10cda8f2e1906098801a3d1fc3633aeb /adduser | |
| parent | 4521a1ce27fa351513fad279228994f89caefe7f (diff) | |
| download | pw-darwin-980d1d3590a81bcb215ee01a375accbd23d1d6f6.tar.gz pw-darwin-980d1d3590a81bcb215ee01a375accbd23d1d6f6.tar.zst pw-darwin-980d1d3590a81bcb215ee01a375accbd23d1d6f6.zip | |
Do not backup master.passwd if pwd_mkdb returned an error. This
was to paranoid, pwd_mkdb(8) is carefully enough to not
corrupt master.passwd on failure.
Submitted by: joerg
Diffstat (limited to 'adduser')
| -rw-r--r-- | adduser/adduser.perl | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/adduser/adduser.perl b/adduser/adduser.perl index c757898..8e35578 100644 --- a/adduser/adduser.perl +++ b/adduser/adduser.perl @@ -24,7 +24,7 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # -# $Id: adduser.perl,v 1.16 1996/08/28 17:54:14 adam Exp $ +# $Id: adduser.perl,v 1.17 1996/09/11 08:36:54 jkh Exp $ # read variables @@ -538,19 +538,9 @@ sub new_users_pwdmkdb { system("$pwd_mkdb $etc_passwd"); if ($?) { - local($crash) = "$etc_passwd.crash$$"; warn "$last\n"; - warn "``$pwd_mkdb'' failed, try to restore ...\n"; - - open(R, "> $crash") || die "Sorry, give up\n"; - $j = join("\n", @passwd_backup); - $j =~ s/\n//; - print R $j . "\n"; - close R; - - system("$pwd_mkdb $crash"); - die "Sorry, give up\n" if $?; - die "Successfully restore $etc_passwd. Exit.\n"; + warn "``$pwd_mkdb'' failed\n"; + exit($? >> 8); } } |