File amanda-3.3.0-qw.patch of Package amanda - j0ke.net Open Build Service

File amanda-3.3.0-qw.patch of Package amanda (Revision 77ce47756fe190f62ad7770f586c6944)

Currently displaying revision 77ce47756fe190f62ad7770f586c6944, show latest

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