[PATCH] emergency: support hostname of `.'

[Eric Wong]

I think I was too lazy when configuring my Dragonfly VM install.
---
 lib/PublicInbox/Emergency.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/PublicInbox/Emergency.pm b/lib/PublicInbox/Emergency.pm
index 74a4069a..968d7d6f 100644
--- 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) {