| … | |
… | |
| 482 | |
482 | |
| 483 | if (@$objs) { |
483 | if (@$objs) { |
| 484 | open my $fh, ">:raw", "$filename.pst~"; |
484 | open my $fh, ">:raw", "$filename.pst~"; |
| 485 | syswrite $fh, Storable::nfreeze { version => 1, objs => $objs }; |
485 | syswrite $fh, Storable::nfreeze { version => 1, objs => $objs }; |
| 486 | close $fh; |
486 | close $fh; |
|
|
487 | unlink "$filename.cfperl"; |
| 487 | chmod SAVE_MODE, "$filename.pst~"; |
488 | chmod SAVE_MODE, "$filename.pst~"; |
| 488 | rename "$filename.pst~", "$filename.pst"; |
489 | rename "$filename.pst~", "$filename.pst"; |
| 489 | } else { |
490 | } else { |
| 490 | unlink "$filename.pst"; |
491 | unlink "$filename.pst"; |
| 491 | } |
492 | } |
| … | |
… | |
| 765 | |
766 | |
| 766 | unlink "$path.pst"; |
767 | unlink "$path.pst"; |
| 767 | }; |
768 | }; |
| 768 | |
769 | |
| 769 | # old style persistent data, TODO: remove #d# |
770 | # old style persistent data, TODO: remove #d# |
| 770 | *cf::mapsupport::on_swapin = |
771 | *cf::mapsupport::on_swapin = sub { |
| 771 | *cf::mapsupport::on_load = sub { |
|
|
| 772 | my ($map) = @_; |
772 | my ($map) = @_; |
| 773 | |
773 | |
| 774 | my $path = $map->tmpname; |
774 | my $path = $map->tmpname; |
| 775 | $path = $map->path unless defined $path; |
775 | $path = $map->path unless defined $path; |
| 776 | |
776 | |
