summaryrefslogtreecommitdiffabout
path: root/lib/App/Glacier/Command/Jobs.pm
Side-by-side diff
Diffstat (limited to 'lib/App/Glacier/Command/Jobs.pm') (more/less context) (show whitespace changes)
-rw-r--r--lib/App/Glacier/Command/Jobs.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/App/Glacier/Command/Jobs.pm b/lib/App/Glacier/Command/Jobs.pm
index 736d713..5a5f488 100644
--- a/lib/App/Glacier/Command/Jobs.pm
+++ b/lib/App/Glacier/Command/Jobs.pm
@@ -6,6 +6,7 @@ use parent qw(App::Glacier::Command);
use Carp;
use Data::Dumper;
use App::Glacier::Timestamp;
+use App::Glacier::Job;
=head1 NAME
@@ -136,7 +137,8 @@ sub list {
$self->debug(1, "deleting expired $key $vault " .
($descr->{JobDescription} || $descr->{Action}) .
$descr->{JobId});
- $db->delete($key) unless $self->dry_run;
+ App::Glacier::Job->fromdb($self, $vault, $key, $res)->delete()
+ unless $self->dry_run;
return;
} else {
$self->error("can't describe job $descr->{JobId}: ",

Return to:

Send suggestions and report system problems to the System administrator.