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};

     }