[ViewVC] Diff of: cvs/deliantra/server/lib/cf.pm

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.256 by root, Sat Apr 21 16:56:32 2007 UTC vs.
Revision 1.263 by root, Sat May 5 05:40:27 2007 UTC

 sub write_runtime {
    my $guard = cf::lock_acquire "write_runtime";
    my $runtime = "$LOCALDIR/runtime";
+   warn "starting to write runtime...\n";#d#
    my $fh = aio_open "$runtime~", O_WRONLY | O_CREAT, 0644
       or return;
    my $value = $cf::RUNTIME + 90 + 10;
    # 10 is the runtime save interval, for a monotonic clock
    close $fh
       or return;
    aio_rename "$runtime~", $runtime
       and return;
+   warn "... done writing runtime.\n";#d#
    1
 }
 =item cf::datalog type => key => value, ...
          Coro::cede;
          $self->activate;
       }
       $self->in_memory (cf::MAP_IN_MEMORY);
-      undef $guard;
    }
    $self->post_load;
 }
       die $$res unless "ARRAY" eq ref $res;
       return wantarray ? @$res : $res->[-1];
    } else {
+      reset_signals;
       local $SIG{__WARN__};
+      local $SIG{__DIE__};
       eval {
-         local $SIG{__DIE__};
          close $fh1;
          my @res = eval { $cb->(@args) };
          syswrite $fh2, Coro::Storable::freeze +($@ ? \"$@" : \@res);
       };
       prio      => 6,
       cb        => \&IO::AIO::poll_cb,
    );
 }
+my $_log_backtrace;
+sub _log_backtrace {
+   my ($msg, @addr) = @_;
+   $msg =~ s/\n//;
+   # limit the # of concurrent backtraces
+   if ($_log_backtrace < 2) {
+      ++$_log_backtrace;
+      async {
+         my @bt = fork_call {
+            @addr = map { sprintf "%x", $_ } @addr;
+            my $self = (-f "/proc/$$/exe") ? "/proc/$$/exe" : $^X;
+            open my $fh, "exec addr2line -C -f -i -e \Q$self\E @addr 2>&1 |"
+               or die "addr2line: $!";
+            my @funcs;
+            my @res = <$fh>;
+            chomp for @res;
+            while (@res) {
+               my ($func, $line) = splice @res, 0, 2, ();
+               push @funcs, "[$func] $line";
+            }
+            @funcs
+         };
+         LOG llevInfo, "[ABT] $msg\n";
+         LOG llevInfo, "[ABT] $_\n" for @bt;
+         --$_log_backtrace;
+      };
+   } else {
+      LOG llevInfo, "[ABT] $msg\n";
+      LOG llevInfo, "[ABT] [suppressed]\n";
+   }
+}
 # load additional modules
 use cf::pod;
 END { cf::emergency_save }

Diff Legend

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

Comparing deliantra/server/lib/cf.pm (file contents): Revision 1.256 by root, Sat Apr 21 16:56:32 2007 UTC vs. Revision 1.263 by root, Sat May 5 05:40:27 2007 UTC

Diff Legend

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.256 by root, Sat Apr 21 16:56:32 2007 UTC vs.
Revision 1.263 by root, Sat May 5 05:40:27 2007 UTC