More END block cleanups.

This commit is contained in:
Colin Kuskie 2010-06-07 19:07:45 -07:00
parent 8a62abc3ef
commit 7034e2cf57
10 changed files with 25 additions and 64 deletions

View file

@ -158,7 +158,4 @@ is($session->db->quickScalar('select count(*) from Survey_response where Survey_
# Afterwards, back to no incomplete responses
is( scalar $session->db->buildArray($SQL), 0, 'Afterwards, back to no incomplete responses');
END {
$session->db->write('delete from Survey_response where userId = ?', [$user->userId]) if $user;
$survey->purge if $survey;
}
#vim:ft=perl