| … | |
… | |
| 204 | } |
204 | } |
| 205 | |
205 | |
| 206 | sub write_file { |
206 | sub write_file { |
| 207 | my ($self, $path) = @_; |
207 | my ($self, $path) = @_; |
| 208 | |
208 | |
| 209 | open my $fh, ">", "$path~" or Carp::croak "$path~: $!"; |
209 | open my $fh, ">:raw", "$path~" or Carp::croak "$path~: $!"; |
| 210 | print $fh $self->as_mapstring or Carp::croak "$path~: $!"; |
210 | print $fh $self->as_mapstring or Carp::croak "$path~: $!"; |
| 211 | close $fh or Carp::croak "$path~: $!"; |
211 | close $fh or Carp::croak "$path~: $!"; |
| 212 | |
212 | |
| 213 | rename "$path~", $path; |
213 | rename "$path~", $path; |
| 214 | } |
214 | } |
| 215 | |
215 | |
| 216 | =head1 AUTHOR |
216 | =head1 AUTHOR |
