simple cleanup logic for WebGUI::Fork; mark the fork "completed" even though it may not be just so that the next test that wants to do waitForAllForks doesn't get hung up on our fork
This commit is contained in:
parent
a82868c2d3
commit
6e12a8f78a
1 changed files with 6 additions and 0 deletions
|
|
@ -639,6 +639,7 @@ were passed in. Currently able to destroy:
|
|||
WebGUI::DatabaseLink
|
||||
WebGUI::LDAPLink
|
||||
WebGUI::Inbox::Message
|
||||
WebGUI::Fork
|
||||
|
||||
Example call:
|
||||
|
||||
|
|
@ -767,6 +768,11 @@ Example call:
|
|||
'SQL' => sub {
|
||||
(shift)->();
|
||||
},
|
||||
'WebGUI::Fork' => sub {
|
||||
my $fork = shift;
|
||||
my $id = $fork->getId;
|
||||
session()->db->write("update Fork set finished = 1 where id = ?", [ $id ] );
|
||||
},
|
||||
);
|
||||
|
||||
sub cleanupGuard {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue