diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2018-12-18 12:24:44 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2018-12-18 12:24:44 +0200 |
commit | 728992688946fe88173e7cd561456a10c9d23fd8 (patch) | |
tree | 74cc2fdd988de0ecd6be9a3f20b4678bf85aeb1e /lib/App/Glacier/Command.pm | |
parent | f6f0330163617f644cd2e6b774e0d9d4b0118b9f (diff) | |
download | glacier-728992688946fe88173e7cd561456a10c9d23fd8.tar.gz glacier-728992688946fe88173e7cd561456a10c9d23fd8.tar.bz2 |
Fix config->as_hash
* lib/App/Glacier/Config.pm (as_hashref): New method.
(as_hash): Return a hash.
Diffstat (limited to 'lib/App/Glacier/Command.pm')
-rw-r--r-- | lib/App/Glacier/Command.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/App/Glacier/Command.pm b/lib/App/Glacier/Command.pm index 62a236b..7178a75 100644 --- a/lib/App/Glacier/Command.pm +++ b/lib/App/Glacier/Command.pm @@ -143,7 +143,7 @@ sub new { } } - $self->{_glacier} = new App::Glacier::Bre(%{$self->config->as_hash('glacier')//{}}); + $self->{_glacier} = new App::Glacier::Bre($self->config->as_hash('glacier')); if ($self->{_glacier}->lasterr) { $self->abend(EX_CONFIG, $self->{_glacier}->last_error_message); } @@ -183,7 +183,7 @@ sub jobdb { my $be = $self->cfget(qw(database job backend)); $self->{_jobdb} = new App::Glacier::Roster( $be, - %{$self->config->as_hash(qw(database job)) // {}} + $self->config->as_hash(qw(database job)) ); } return $self->{_jobdb}; @@ -212,7 +212,8 @@ sub directory { $be, $vault_name, $self->glacier, - %{$self->config->as_hash(qw(database inv)) // {}}); + $self->config->as_hash(qw(database inv)) + ); } return $self->{_dir}{$vault_name}; } |