chiark / gitweb /
Really keep perms.
authorian <ian>
Sun, 3 Jan 1999 02:19:27 +0000 (02:19 +0000)
committerian <ian>
Sun, 3 Jan 1999 02:19:27 +0000 (02:19 +0000)
sync-accounts/sync-accounts

index 1f48714c991a4b610bd8d26a08e1e304ce594e0d..1cbb452ef88b9f614b67a1570b875d2c25b7d2a3 100755 (executable)
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: sync-accounts,v 1.10 1999-01-03 02:16:49 ian Exp $
+# $Id: sync-accounts,v 1.11 1999-01-03 02:19:27 ian Exp $
 # usage: sync-accounts [-n] [-C<config-file>] [<host> ...]
 # options:
 #   -n     do not really do anything
@@ -547,7 +547,7 @@ sub finish () {
        close NF or die $!;
        system "diff -U0 /etc/$file $newfile"; $?==256 or die $?;
        if (!$no_act) {
-           (@stats= stat $file) or die "$file: $!";
+           (@stats= stat "/etc/$file") or die "$file: $!";
            chown $stats[4],$stats[5], $newfile or die $!;
            chmod $stats[2] & 07777, $newfile or die $!;
            rename $newfile, "/etc/$file" or die $!;