diff options
Diffstat (limited to 'lib/App/Beam/Backup.pm')
-rw-r--r-- | lib/App/Beam/Backup.pm | 3 |
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(); } |