… | |
… | |
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 | |