lib/DNStools/UpdateSerial.pm
changeset 138 046d8e631700
parent 135 ad9d6900e4ea
child 150 3db363880766
equal deleted inserted replaced
137:69856eb1e826 138:046d8e631700
   328         close B;
   328         close B;
   329         chown $uid, $gid, $cb or die "Can't 'chown $uid, $gid, $cb': $!";
   329         chown $uid, $gid, $cb or die "Can't 'chown $uid, $gid, $cb': $!";
   330         chmod $mode, $cb or die "Can't 'chmod $mode, $cb': $!";
   330         chmod $mode, $cb or die "Can't 'chmod $mode, $cb': $!";
   331         utime $atime, $mtime, $cb or die "Can't 'utime $atime, $mtime, $cb': $!";
   331         utime $atime, $mtime, $cb or die "Can't 'utime $atime, $mtime, $cb': $!";
   332 
   332 
       
   333         truncate C, 0 or die "Can't truncate C, 0: $!";
   333         seek C, 0, 0 or die "Can't seek C, 0, 0: $!";
   334         seek C, 0, 0 or die "Can't seek C, 0, 0: $!";
   334         # write back @lines we modified earlier
   335         # write back @lines we modified earlier
   335         print C @lines;
   336         print C @lines;
   336         close C;
   337         close C;
   337 
   338