aboutsummaryrefslogtreecommitdiff
path: root/lib/App/Beam/Backup.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/App/Beam/Backup.pm')
-rw-r--r--lib/App/Beam/Backup.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/App/Beam/Backup.pm b/lib/App/Beam/Backup.pm
index b026f30..7d217e0 100644
--- a/lib/App/Beam/Backup.pm
+++ b/lib/App/Beam/Backup.pm
@@ -9,12 +9,13 @@ our @ISA = qw(App::Beam);
sub run {
my $self = shift;
+ $self->abend(EX_USAGE, "bad number of arguments") if @_;
+
$self->lock();
foreach my $item (split /\s+/, $self->get('core.items')) {
my $backend = $self->{backend}{$self->get("item.$item.backend")};
$backend->backup($item);
}
- $self->set_result('OK') if $self->result eq 'PENDING';
$self->unlock();
}

Return to:

Send suggestions and report system problems to the System administrator.