Index: ChangeLog
===================================================================
--- ChangeLog (revision 4171)
+++ ChangeLog (revision 4173)
@@ -1,3 +1,8 @@
+2011-06-17  Jean-Louis Martineau <martineau@...>
+ * perl/Amanda/Changer/robot.pm, perl/Amanda/Recovery/Planner.pm,
+  perl/Amanda/Recovery/Clerk.pm,
+  perl/Amanda/Taper/Scribe.pm: Fix for qw syntax in perl 5.14.
+
 2011-06-13  Jean-Louis Martineau <martineau@...>
  * perl/Amanda/Taper/Worker.pm: s/messsage/message/.
 
Index: perl/Amanda/Changer/robot.pm
===================================================================
--- perl/Amanda/Changer/robot.pm (revision 4171)
+++ perl/Amanda/Changer/robot.pm (revision 4173)
@@ -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: perl/Amanda/Recovery/Planner.pm
===================================================================
--- perl/Amanda/Recovery/Planner.pm (revision 4171)
+++ perl/Amanda/Recovery/Planner.pm (revision 4173)
@@ -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: perl/Amanda/Recovery/Clerk.pm
===================================================================
--- perl/Amanda/Recovery/Clerk.pm (revision 4171)
+++ perl/Amanda/Recovery/Clerk.pm (revision 4173)
@@ -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: perl/Amanda/Taper/Scribe.pm
===================================================================
--- perl/Amanda/Taper/Scribe.pm (revision 4171)
+++ perl/Amanda/Taper/Scribe.pm (revision 4173)
@@ -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};
     }
@@ -1571,7 +1571,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};
     }