diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2018-03-08 09:40:24 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2018-03-08 09:40:24 +0200 |
commit | 11f3b2bd7064cb5f1f5bb902a9b9cf57cd75abf7 (patch) | |
tree | ab9fea3cceffcb0639c1d2d01b4053f748b727c2 /lib/App | |
parent | c9a7a3860802915125b06c82d93faa67ddeb9292 (diff) | |
download | glacier-11f3b2bd7064cb5f1f5bb902a9b9cf57cd75abf7.tar.gz glacier-11f3b2bd7064cb5f1f5bb902a9b9cf57cd75abf7.tar.bz2 |
Minor fix (purge)
Diffstat (limited to 'lib/App')
-rw-r--r-- | lib/App/Glacier/Command/Purge.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/App/Glacier/Command/Purge.pm b/lib/App/Glacier/Command/Purge.pm index 44fafb4..a7a9eeb 100644 --- a/lib/App/Glacier/Command/Purge.pm +++ b/lib/App/Glacier/Command/Purge.pm @@ -48,7 +48,8 @@ sub new { $argref, optmap => { 'interactive|i' => 'interactive', - 'force|f' => sub { $_[0]->{_options}{interactive} = 0 }, + 'force|f' => sub { $_[0]->{_options}{interactive} = 0 } + }, %opts); $self->{_options}{interactive} //= 1; $self |