--- deliantra/server/ext/client-settings-page.ext	2007/12/28 12:44:45	1.1
+++ deliantra/server/ext/client-settings-page.ext	2007/12/29 21:07:23	1.2
@@ -6,6 +6,8 @@
 
    my $ws = $ns->{ws_settings} = $ns->new_widgetset;
 
+   cf::weaken $ws;
+
    # I hope not doing range checking is ok here...
    $ws->template (face => (cf::face::find "res/ui/pl_settings_page"),
       [
@@ -15,6 +17,8 @@
          info      => { text => $pl->{user_info} },
          info_save => {
             on_activate => sub {
+               $pl; # work around leaking $pl otherwise, 5.8 at least
+
                $ws->{title}->get (text => sub {
                   $pl->statusmsg ("new title has been saved");
                   $pl->own_title ($_[0]);
@@ -34,7 +38,7 @@
       ],
       sub {
          $ws->find ("pl_notebook")->add ($ws->{page});
-      }
+      },
    );
 }