| … | |
… | |
| 256 | |
256 | |
| 257 | open my $fh, ">:raw:utf8", "$path~" or Carp::croak "$path~: $!"; |
257 | open my $fh, ">:raw:utf8", "$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; |
261 | if (stat $path) { |
| 262 | |
|
|
| 263 | chmod +(stat _)[2] & 0777, "$path~"; |
262 | chmod +(stat _)[2] & 0777, "$path~"; |
| 264 | chown +(stat _)[4,5], "$path~"; |
263 | chown +(stat _)[4,5], "$path~"; |
|
|
264 | } |
| 265 | |
265 | |
| 266 | rename "$path~", $path; |
266 | rename "$path~", $path; |
| 267 | } |
267 | } |
| 268 | |
268 | |
| 269 | =head1 AUTHOR |
269 | =head1 AUTHOR |
