| … | |
… | |
| 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 | } |
| … | |
… | |
| 771 | my ($map) = @_; |
772 | my ($map) = @_; |
| 772 | |
773 | |
| 773 | my $path = $map->tmpname; |
774 | my $path = $map->tmpname; |
| 774 | $path = $map->path unless defined $path; |
775 | $path = $map->path unless defined $path; |
| 775 | |
776 | |
| 776 | warn "$path.cfperl\n";#d# |
|
|
| 777 | |
|
|
| 778 | open my $fh, "<:raw", "$path.cfperl" |
777 | open my $fh, "<:raw", "$path.cfperl" |
| 779 | or return; # no perl data |
778 | or return; # no perl data |
| 780 | |
779 | |
| 781 | my $data = Storable::thaw do { local $/; <$fh> }; |
780 | my $data = Storable::thaw do { local $/; <$fh> }; |
| 782 | |
781 | |
