config: hoist out common functions

These will be reused elsewhere.

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;