about summary refs log tree commit homepage
path: root/lib
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2020-09-01 01:15:04 +0000
committerEric Wong <e@80x24.org>2020-09-02 08:53:58 +0000
commit08338456f0770a64abb04a8648a77b3742a06b6a (patch)
treec45afdd3d1bd961877b56fa2a4c53c2a52d7fb86 /lib
parent6c252b62bef579207ca417939076a9896d8a791b (diff)
downloadpublic-inbox-08338456f0770a64abb04a8648a77b3742a06b6a.tar.gz
Just some golfing to reduce scrolling and hopefully readability.
Diffstat (limited to 'lib')
-rw-r--r--lib/PublicInbox/Config.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index f9184bd2..ae9ad8de 100644
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -19,7 +19,7 @@ sub _array ($) { ref($_[0]) eq 'ARRAY' ? $_[0] : [ $_[0] ] }
 # if keys may be multi-value, the value is an array ref containing all values
 sub new {
         my ($class, $file) = @_;
-        $file = default_file() unless defined($file);
+        $file //= default_file();
         my $self;
         if (ref($file) eq 'SCALAR') { # used by some tests
                 open my $fh, '<', $file or die;  # PerlIO::scalar
@@ -136,9 +136,7 @@ sub limiter {
 sub config_dir { $ENV{PI_DIR} // "$ENV{HOME}/.public-inbox" }
 
 sub default_file {
-        my $f = $ENV{PI_CONFIG};
-        return $f if defined $f;
-        config_dir() . '/config';
+        $ENV{PI_CONFIG} // (config_dir() . '/config');
 }
 
 sub config_fh_parse ($$$) {