--- deliantra/Deliantra-Client/DC.pm 2006/06/05 22:07:42 1.90 +++ 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; @@ -53,7 +54,7 @@ sub view_item { ("\t" x ($indent / 4)) . $_[1]->title->present ($_[0]) - . "\n" + . "\n\n" . $_[1]->content->present ($_[0]) } @@ -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) = @_;