From: ian <ian>
Date: Sun, 3 Jan 1999 03:35:24 +0000 (+0000)
Subject: Check error return from open of new files.
X-Git-Tag: branchpoint-2001-05-11-withlockex-old~6
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=9407b31074c957774e76006a34d800fe8dc7aea9;p=chiark-utils.git

Check error return from open of new files.
---

diff --git a/sync-accounts/sync-accounts b/sync-accounts/sync-accounts
index d162c89..172b78c 100755
--- a/sync-accounts/sync-accounts
+++ b/sync-accounts/sync-accounts
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: sync-accounts,v 1.12 1999-01-03 02:40:50 ian Exp $
+# $Id: sync-accounts,v 1.13 1999-01-03 03:35:24 ian Exp $
 # usage: sync-accounts [-n] [-C<config-file>] [<host> ...]
 # options:
 #   -n     do not really do anything
@@ -550,7 +550,7 @@ sub finish () {
 	die $file unless $fetched;
 	banner();
 	$newfile= $no_act ? "$file.new" : "/etc/$file.new";
-	open NF,"> $newfile";
+	open NF,"> $newfile" or die "$newfile: $!";
 	for $e (@$data_ref) {
 	    print NF join(':',@$e),"\n" or die $!;
 	}