#!/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
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 $!;
}