--- deliantra/Deliantra-Client/DC.pm	2006/06/07 06:28:28	1.91
+++ deliantra/Deliantra-Client/DC.pm	2006/06/07 23:30:25	1.92
@@ -27,6 +27,7 @@
 use AnyEvent ();
 use BerkeleyDB;
 use Pod::POM ();
+use Scalar::Util ();
 use Storable (); # finally
 
 package CFClient::PodToPango;
@@ -301,6 +302,9 @@
 sub update_widgets {
    my ($self) = @_;
 
+   # necessary to avoid cyclic references
+   Scalar::Util::weaken $self;
+
    my $button_cb = sub {
       my (undef, $ev, $x, $y) = @_;