Imported Upstream version 3.3.1

[debian/amanda] / perl / Amanda / Recovery / Planner.pm

diff --git a/perl/Amanda/Recovery/Planner.pm b/perl/Amanda/Recovery/Planner.pm
index 03cb3e6acee512d71748975f9601d089456b52af..a3100623c536562dc4f363ce0af3f9a223557f37 100644 (file)
--- 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};
     }