From 4a683e74a6afd9896df3c32b9d9d334e4599f7d3 Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Tue, 9 Jun 2009 18:05:47 +0000 Subject: * fixed a whole lot of circular references which I found when researching #451 * some minor cleanups along the way git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2944 95ad53e4-c205-0410-b2fa-d234c58c8868 --- os-plugins/OpenSLX/OSPlugin/Base.pm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'os-plugins/OpenSLX/OSPlugin') diff --git a/os-plugins/OpenSLX/OSPlugin/Base.pm b/os-plugins/OpenSLX/OSPlugin/Base.pm index d51a8b38..2af0f04c 100644 --- a/os-plugins/OpenSLX/OSPlugin/Base.pm +++ b/os-plugins/OpenSLX/OSPlugin/Base.pm @@ -60,6 +60,8 @@ implementation, please drop a mail to: ot@openslx.com, or join the IRC-channel =cut +use Scalar::Util qw( weaken ); + use OpenSLX::Basics; use OpenSLX::OSPlugin::Roster; @@ -96,6 +98,9 @@ sub initialize $self->{'os-plugin-engine'} = shift; $self->{'distro'} = shift; + + weaken($self->{'os-plugin-engine'}); + # avoid circular reference between plugin and its engine return; } -- cgit v1.2.3-55-g7522