… | |
… | |
256 | |
256 | |
257 | open my $fh, ">:raw", "$path~" or Carp::croak "$path~: $!"; |
257 | open my $fh, ">:raw", "$path~" or Carp::croak "$path~: $!"; |
258 | print $fh $self->as_mapstring or Carp::croak "$path~: $!"; |
258 | print $fh $self->as_mapstring or Carp::croak "$path~: $!"; |
259 | close $fh or Carp::croak "$path~: $!"; |
259 | close $fh or Carp::croak "$path~: $!"; |
260 | |
260 | |
|
|
261 | stat $path; |
|
|
262 | |
|
|
263 | chmod +(stat _)[2] & 0777, "$path~"; |
|
|
264 | chown +(stat _)[4,5], "$path~"; |
|
|
265 | |
261 | rename "$path~", $path; |
266 | rename "$path~", $path; |
262 | } |
267 | } |
263 | |
268 | |
264 | =head1 AUTHOR |
269 | =head1 AUTHOR |
265 | |
270 | |