diff options
author | Eric Wong <e@80x24.org> | 2015-12-10 04:16:43 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-12-22 00:58:01 +0000 |
commit | 3273b47d02dd353cd2efe1cd0bdeca1334e3942e (patch) | |
tree | 41402862b42179ec6bb105cb295d1b5fe981a3ef /lib/PublicInbox/WWW.pm | |
parent | 84130495f67b9d50e663f64c8e11293614bf0a24 (diff) | |
download | public-inbox-3273b47d02dd353cd2efe1cd0bdeca1334e3942e.tar.gz |
These will be reused elsewhere.
Diffstat (limited to 'lib/PublicInbox/WWW.pm')
-rw-r--r-- | lib/PublicInbox/WWW.pm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm index d00dfe7c..5cd3bc6f 100644 --- a/lib/PublicInbox/WWW.pm +++ b/lib/PublicInbox/WWW.pm @@ -13,7 +13,7 @@ package PublicInbox::WWW; use 5.008; use strict; use warnings; -use PublicInbox::Config; +use PublicInbox::Config qw(try_cat); use URI::Escape qw(uri_escape_utf8 uri_unescape); use constant SSOMA_URL => 'http://ssoma.public-inbox.org/'; use constant PI_URL => 'http://public-inbox.org/'; @@ -218,17 +218,6 @@ sub ctx_get { $val; } -sub try_cat { - my ($path) = @_; - my $rv; - if (open(my $fh, '<', $path)) { - local $/; - $rv = <$fh>; - close $fh; - } - $rv; -} - sub footer { my ($ctx) = @_; return '' unless $ctx; |