diff options
author | Eric Wong <e@80x24.org> | 2020-09-01 01:15:04 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2020-09-02 08:53:58 +0000 |
commit | 08338456f0770a64abb04a8648a77b3742a06b6a (patch) | |
tree | c45afdd3d1bd961877b56fa2a4c53c2a52d7fb86 /lib | |
parent | 6c252b62bef579207ca417939076a9896d8a791b (diff) | |
download | public-inbox-08338456f0770a64abb04a8648a77b3742a06b6a.tar.gz |
Just some golfing to reduce scrolling and hopefully readability.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/PublicInbox/Config.pm | 6 |
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 ($$$) { |