X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FRecovery%2FPlanner.pm;h=a3100623c536562dc4f363ce0af3f9a223557f37;hb=refs%2Ftags%2Fupstream%2F3.3.1;hp=03cb3e6acee512d71748975f9601d089456b52af;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;p=debian%2Famanda

diff --git a/perl/Amanda/Recovery/Planner.pm b/perl/Amanda/Recovery/Planner.pm
index 03cb3e6..a310062 100644
--- a/perl/Amanda/Recovery/Planner.pm
+++ b/perl/Amanda/Recovery/Planner.pm
@@ -228,7 +228,7 @@ sub make_plan {
     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 @@ sub make_holding_plan {
     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 @@ sub make_plan_from_filelist {
     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};
     }