[PATCH] testbot: Avoid reference cycles in the activity report.

[Francois Gouget]

Reference cycles cause Perl's primitive reference-count based garbage
collector to leak memory.

Signed-off-by: Francois Gouget 
---
 testbot/lib/WineTestBot/Activity.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/testbot/lib/WineTestBot/Activity.pm b/testbot/lib/WineTestBot/Activity.pm
index 3a9081a3..dcc58956 100644
--- a/testbot/lib/WineTestBot/Activity.pm
+++ b/testbot/lib/WineTestBot/Activity.pm
@@ -25,6 +25,7 @@ WineTestBot::Activity -  reconstruct the TestBot's activity from its history rec

=cut

+use Scalar::Util qw(weaken);
 use WineTestBot::Config;
 use WineTestBot::Jobs;
 use WineTestBot::RecordGroups;
@@ -112,6 +113,7 @@ sub GetActivity($)

$VMStatus->{host} = $RecordHost;
       $VMStatus->{vmstatus} = $VMStatus;
+      weaken($VMStatus->{vmstatus}); # avoid memory cycles
       $VMStatus->{start} = $Group->{start};
       my ($Status, @Extra) = split / /, $Record->Value;
       $VMStatus->{status} = $Status;
@@ -176,6 +178,7 @@ sub GetActivity($)
           status => "unknown",
           rows => 1};
         $VMStatus->{vmstatus} = $VMStatus;
+        weaken($VMStatus->{vmstatus}); # avoid memory cycles
       }
       $LastStatusVMs{$VM->Name} = $StatusVMs;
     }