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