warn "W: skipping $key (no UIDVALIDITY)\n";
return;
}
- my $ibxdir = File::Spec->canonpath($ibx->{inboxdir});
- if ($ibxdir ne $ibx->{inboxdir}) {
- warn "W: `$ibx->{inboxdir}' canonicalized to `$ibxdir'\n";
- $ibx->{inboxdir} = $ibxdir;
- }
$self->{ibx_map}->{$key} //= do {
push @{$self->{ibx_list}}, $ibx;
$ibx;
state $retval = hostname . '-' . do {
my $m; # machine-id(5) is systemd
if (open(my $fh, '<', '/etc/machine-id')) { $m = <$fh> }
- # hostid(1) is in GNU coreutils, kern.hostid is FreeBSD
- chomp($m ||= `hostid` || `sysctl -n kern.hostid`);
+ # (g)hostid(1) is in GNU coreutils, kern.hostid is most BSDs
+ chomp($m ||= `{ sysctl -n kern.hostid ||
+ hostid || ghostid; } 2>/dev/null`
+ || "no-machine-id-or-hostid-on-$^O");
$m;
};
}