diff options
author | Eric Wong <e@80x24.org> | 2016-06-15 01:25:34 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-06-15 01:25:34 +0000 |
commit | d9d19e3a74b8331f39098b254a8865659948fc7a (patch) | |
tree | 24ffeb1a3b1cb9488fd4e03d664b8aafd63b9ea0 | |
parent | e0e5c614efde16f746d190289d24e30f804df59f (diff) | |
download | public-inbox-d9d19e3a74b8331f39098b254a8865659948fc7a.tar.gz |
It should be possible to serve the contents of a public-inbox over NNTP but not HTTP.
-rw-r--r-- | lib/PublicInbox/Inbox.pm | 2 | ||||
-rw-r--r-- | t/inbox.t | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lib/PublicInbox/Inbox.pm b/lib/PublicInbox/Inbox.pm index 27218de7..c982d0b4 100644 --- a/lib/PublicInbox/Inbox.pm +++ b/lib/PublicInbox/Inbox.pm @@ -73,7 +73,7 @@ sub base_url { } else { # either called from a non-PSGI environment (e.g. NNTP/POP3) $self->{-base_url} ||= do { - my $url = $self->{url}; + my $url = $self->{url} or return undef; # expand protocol-relative URLs to HTTPS if we're # not inside a web server $url = "https:$url" if $url =~ m!\A//!; @@ -9,4 +9,7 @@ is($x->base_url, 'https://example.com/test/', 'expanded protocol-relative'); $x = PublicInbox::Inbox->new({url => 'http://example.com/test'}); is($x->base_url, 'http://example.com/test/', 'added trailing slash'); +$x = PublicInbox::Inbox->new({}); +is($x->base_url, undef, 'undef base_url allowed'); + done_testing(); |