Search
j0ke.net Open Build Service
>
Projects
>
home:jg
:
backup
>
amanda
> amanda-3.3.0-qw.patch
Sign Up
|
Log In
Username
Password
Cancel
Overview
Repositories
Revisions
Requests
Users
Advanced
Attributes
Meta
File amanda-3.3.0-qw.patch of Package amanda
Index: amanda/branches/3_3/perl/Amanda/Changer/robot.pm =================================================================== --- amanda/branches/3_3/perl/Amanda/Changer/robot.pm (revision 4171) +++ amanda/branches/3_3/perl/Amanda/Changer/robot.pm (revision 4172) @@ -266,7 +266,7 @@ } # status-interval, eject-delay, unload-delay - for my $propname qw(status-interval eject-delay unload-delay) { + for my $propname (qw(status-interval eject-delay unload-delay)) { next unless exists $config->{'properties'}->{$propname}; if (@{$config->{'properties'}->{$propname}->{'values'}} > 1) { return Amanda::Changer->make_error("fatal", undef, Index: amanda/branches/3_3/perl/Amanda/Recovery/Planner.pm =================================================================== --- amanda/branches/3_3/perl/Amanda/Recovery/Planner.pm (revision 4171) +++ amanda/branches/3_3/perl/Amanda/Recovery/Planner.pm (revision 4172) @@ -228,7 +228,7 @@ my $self = shift; my %params = @_; - for my $rq_param qw(changer plan_cb dumpspecs) { + for my $rq_param (qw(changer plan_cb dumpspecs)) { croak "required parameter '$rq_param' mising" unless exists $params{$rq_param}; } @@ -339,7 +339,7 @@ my $self = shift; my %params = @_; - for my $rq_param qw(holding_file plan_cb) { + for my $rq_param (qw(holding_file plan_cb)) { croak "required parameter '$rq_param' mising" unless exists $params{$rq_param}; } @@ -390,7 +390,7 @@ my $self = shift; my %params = @_; - for my $rq_param qw(filelist plan_cb) { + for my $rq_param (qw(filelist plan_cb)) { croak "required parameter '$rq_param' mising" unless exists $params{$rq_param}; } Index: amanda/branches/3_3/perl/Amanda/Recovery/Clerk.pm =================================================================== --- amanda/branches/3_3/perl/Amanda/Recovery/Clerk.pm (revision 4171) +++ amanda/branches/3_3/perl/Amanda/Recovery/Clerk.pm (revision 4172) @@ -228,7 +228,7 @@ my $self = shift; my %params = @_; - for my $rq_param qw(dump xfer_src_cb) { + for my $rq_param (qw(dump xfer_src_cb)) { croak "required parameter '$rq_param' missing" unless exists $params{$rq_param}; } @@ -262,7 +262,7 @@ my %params = @_; $self->dbg("starting recovery"); - for my $rq_param qw(xfer recovery_cb) { + for my $rq_param (qw(xfer recovery_cb)) { croak "required parameter '$rq_param' missing" unless exists $params{$rq_param}; } Index: amanda/branches/3_3/perl/Amanda/Taper/Scribe.pm =================================================================== --- amanda/branches/3_3/perl/Amanda/Taper/Scribe.pm (revision 4171) +++ amanda/branches/3_3/perl/Amanda/Taper/Scribe.pm (revision 4172) @@ -442,7 +442,7 @@ my %params = @_; my $decide_debug = $Amanda::Config::debug_taper || $params{'debug'}; - for my $rq_param qw(taperscan feedback) { + for my $rq_param (qw(taperscan feedback)) { croak "required parameter '$rq_param' mising" unless exists $params{$rq_param}; } @@ -491,7 +491,7 @@ my $self = shift; my %params = @_; - for my $rq_param qw(write_timestamp finished_cb) { + for my $rq_param (qw(write_timestamp finished_cb)) { croak "required parameter '$rq_param' missing" unless exists $params{$rq_param}; } @@ -615,7 +615,7 @@ my $self = shift; my %params = @_; - for my $rq_param qw(max_memory) { + for my $rq_param (qw(max_memory)) { croak "required parameter '$rq_param' missing" unless exists $params{$rq_param}; } @@ -1622,7 +1622,7 @@ my $self = shift; my %params = @_; - for my $rq_param qw(finished_cb) { + for my $rq_param (qw(finished_cb)) { croak "required parameter '$rq_param' mising" unless exists $params{$rq_param}; }
