equal
deleted
inserted
replaced
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 |