--- cf.schmorp.de/server/lib/cf.pm 2007/04/18 14:24:10 1.250 +++ cf.schmorp.de/server/lib/cf.pm 2007/04/18 14:45:13 1.251 @@ -2416,15 +2416,16 @@ return wantarray ? @$res : $res->[-1]; } else { + local $SIG{__WARN__}; eval { local $SIG{__DIE__}; - local $SIG{__WARN__}; close $fh1; my @res = eval { $cb->(@args) }; syswrite $fh2, Coro::Storable::freeze +($@ ? \"$@" : \@res); }; + warn $@ if $@; _exit 0; } }