[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC.pm

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.114 by elmex, Mon Aug 14 04:34:40 2006 UTC vs.
Revision 1.118 by root, Tue Sep 12 20:48:17 2006 UTC

 =cut
 package CFPlus;
 BEGIN {
-   $VERSION = '0.2';
+   $VERSION = '0.5';
    use XSLoader;
    XSLoader::load "CFPlus", $VERSION;
 }
 my %DB_SYNC;
 sub put($$$) {
    my ($db, $key, $data) = @_;
+   my $hkey = $db + 0;
+   Scalar::Util::weaken $db;
-   $DB_SYNC{$db} = AnyEvent->timer (after => 5, cb => sub { $db->db_sync });
+   $DB_SYNC{$hkey} ||= AnyEvent->timer (after => 5, cb => sub {
+      delete $DB_SYNC{$hkey};
+      $db->db_sync if $db;
+   });
    $db->db_put ($key => $data)
 }
 package CFPlus;
                sub {
                   &::open_string_query ("Rename item to:", sub {
                      my ($entry, $txt) = @_;
                      $::CONN->send ("mark ". pack "N", $self->{tag});
                      $::CONN->send ("command rename to <$txt>");
-                  });
+                  }, $self->{name},
+                  "If you input no name or erase the current custom name, the custom name will be unset");
                }
             ],
             ["apply",   sub { $::CONN->send ("apply $self->{tag}") }],
             (
                $self->{flags} & F_LOCKED

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines