[tools] testbot/web: Make sure VM deletion errors are reported.

[Francois Gouget]

Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com>
---
 testbot/web/admin/VMsList.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/testbot/web/admin/VMsList.pl b/testbot/web/admin/VMsList.pl
index 832c3bd4cb..283c542636 100644
--- a/testbot/web/admin/VMsList.pl
+++ b/testbot/web/admin/VMsList.pl
@@ -59,8 +59,8 @@ sub OnItemAction($$$$)
   if ($Action eq "Delete")
   {
     $Item->Role("deleted");
-    my ($ErrProperty, $ErrMessage) = $Item->Save();
-    return ! defined($ErrMessage);
+    (my $ErrProperty, $self->{ErrMessage}) = $Item->Save();
+    return !defined $self->{ErrMessage};
   }
 
   return $self->SUPER::OnItemAction($CollectionBlock, $Item, $Action);
-- 
2.30.2