package PublicInbox::Inbox;
use strict;
use warnings;
-use Scalar::Util qw(weaken);
+use Scalar::Util qw(weaken isweak);
use PublicInbox::Git;
use PublicInbox::MID qw(mid2path);
sub new {
my ($class, $opts) = @_;
+ my $v = $opts->{address} ||= 'public-inbox@example.com';
+ my $p = $opts->{-primary_address} = ref($v) eq 'ARRAY' ? $v->[0] : $v;
+ $opts->{domain} = ($p =~ /\@(\S+)\z/) ? $1 : 'localhost';
bless $opts, $class;
}
sub weaken_all {
my ($self) = @_;
- weaken($self->{$_}) foreach qw(git mm search);
+ foreach my $f (qw(git mm search)) {
+ isweak($self->{$f}) or weaken($self->{$f});
+ }
}
sub git {