diff options
author | 1996-09-14 23:22:23 +0000 | |
---|---|---|
committer | 1996-09-14 23:22:23 +0000 | |
commit | 38f996efb94bb9fb011609f7f340cf0923e0dffc (patch) | |
tree | de9701581e935dfad962d92cf3fe218cfa5cbaa8 /adduser | |
parent | 819957f7ea299822251a135b822473764e0d2191 (diff) | |
download | pw-darwin-38f996efb94bb9fb011609f7f340cf0923e0dffc.tar.gz pw-darwin-38f996efb94bb9fb011609f7f340cf0923e0dffc.tar.zst pw-darwin-38f996efb94bb9fb011609f7f340cf0923e0dffc.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); } } |