diff options
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 @@ -140,13 +140,13 @@ sub new { $creds->secret_key($account)); $region = $creds->region($account) unless defined $region; } } } - $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); } return $self; } @@ -180,13 +180,13 @@ sub touchdir { sub jobdb { my $self = shift; unless ($self->{_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}; } sub describe_vault { @@ -209,13 +209,14 @@ sub directory { my $be = $self->cfget(qw(database inv backend)); $self->{_dir}{$vault_name} = new App::Glacier::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}; } sub config { shift->{_config} } |