}
# called from a non-PSGI environment (e.g. NNTP/POP3):
$self->{-base_url} ||= do {
- my $url = $self->{url}->[0] or return undef;
+ my $url = $self->{url} // return undef;
+ $url = $url->[0] // return undef;
# expand protocol-relative URLs to HTTPS if we're
# not inside a web server
$url = "https:$url" if $url =~ m!\A//!;
my $desc = ascii_html($ce->{description} //= $ibx->description);
my $ts = fmt_ts($ce->{-modified} //= $ibx->modified);
my ($url, $href);
- if (defined($ibx->{url})) {
+ if (scalar(@{$ibx->{url} // []})) {
$url = $href = ascii_html(prurl($ctx->{env}, $ibx->{url}));
} else {
$href = ascii_html(uri_escape_utf8($ibx->{name})) . '/';
return if $section !~ m!\Apublicinbox\.([^/]+)\z!;
my $ibx = $cfg->lookup_name($1) or return;
if (!$ibx->{-hide}->{$ctx->hide_key} &&
- grep(/$re/, @{$ibx->{url}})) {
+ grep(/$re/, @{$ibx->{url} // []})) {
$ctx->ibx_entry($ibx);
}
} else { # undef == "EOF"