--- deliantra/server/lib/cf.pm	2007/02/12 01:32:49	1.210
+++ deliantra/server/lib/cf.pm	2007/02/13 16:23:32	1.211
@@ -358,6 +358,8 @@
 }
 
 sub write_runtime {
+   $TICK_WATCHER->is_active or cf::cleanup "mainloop frozen but runtime active", 1;
+
    my $runtime = cf::localdir . "/runtime";
 
    my $fh = aio_open "$runtime~", O_WRONLY | O_CREAT, 0644
@@ -2356,6 +2358,13 @@
    warn "leave emergency perl save\n";
 }
 
+sub post_cleanup {
+   my ($make_core) = @_;
+
+   warn Carp::longmess "post_cleanup backtrace"
+      if $make_core;
+}
+
 sub reload() {
    # can/must only be called in main
    if ($Coro::current != $Coro::main) {