From 38f996efb94bb9fb011609f7f340cf0923e0dffc Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Sat, 14 Sep 1996 23:22:23 +0000 Subject: 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 --- adduser/adduser.perl | 16 +++------------- 1 file changed, 3 insertions(+), 13 deletions(-) (limited to 'adduser') 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); } } -- cgit v1.2.3-56-ge451