| … | |
… | |
| 876 | waitpid $pid, 0 if $pid; |
876 | waitpid $pid, 0 if $pid; |
| 877 | if (0 == ($pid = fork)) { |
877 | if (0 == ($pid = fork)) { |
| 878 | $db->{_meta}{version} = 1; |
878 | $db->{_meta}{version} = 1; |
| 879 | Storable::nstore $db, "$path~"; |
879 | Storable::nstore $db, "$path~"; |
| 880 | rename "$path~", $path; |
880 | rename "$path~", $path; |
| 881 | kill 9, $$ if defined $pid; #d# remove when binary updated |
|
|
| 882 | cf::_exit 0 if defined $pid; |
881 | cf::_exit 0 if defined $pid; |
| 883 | } |
882 | } |
| 884 | } |
883 | } |
| 885 | |
884 | |
| 886 | my $dirty; |
885 | my $dirty; |
