emergency: support hostname of `.'

I think I was too lazy when configuring my Dragonfly VM install.

diff --git a/lib/PublicInbox/Emergency.pm b/lib/PublicInbox/Emergency.pm
index 74a4069ab178e7e4bfbd0fe942ed0efce20e4b47..968d7d6ff7202958403c5817ee688984fba1414a 100644 (file)
--- a/lib/PublicInbox/Emergency.pm
+++ b/lib/PublicInbox/Emergency.pm
@@ -18,7 +18,7 @@ sub new {
 
 sub _fn_in {
        my ($self, $pid, $dir) = @_;
-       my $host = $self->{short_host} //= (split(/\./, hostname))[0];
+       my $host = $self->{-host} //= (split(/\./, hostname))[0] // 'localhost';
        my $now = time;
        my $n;
        if ($self->{t} != $now) {