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:
Scott Walters 2011-05-02 17:59:07 -04:00
parent a82868c2d3
commit 6e12a8f78a

View file

@ -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 {