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         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