Bug 607966: Use of qw(...) as parentheses is deprecated since Perl 5.13.5

r=gerv a=LpSolit

1 files changed, 4 insertions, 4 deletions

diff --git a/xt/lib/Bugzilla/Test/Search.pm b/xt/lib/Bugzilla/Test/Search.pm
index 73bb86dfd..42882bea9 100644
--- a/xt/lib/Bugzilla/Test/Search.pm
+++ b/xt/lib/Bugzilla/Test/Search.pm
@@ -380,7 +380,7 @@ sub _create_field_values {
 
     $values{'keywords'} = create_keyword($number)->name;
 
-    foreach my $field qw(assigned_to qa_contact reporter cc) {
+    foreach my $field (qw(assigned_to qa_contact reporter cc)) {
         $values{$field} = create_user("$number-$field")->login;
     }
 
@@ -504,7 +504,7 @@ sub _create_flags {
     my $flagtypes = _create_flagtypes($number);
 
     my %flags;
-    foreach my $type qw(a b) {
+    foreach my $type (qw(a b)) {
         $flags{$type} = _get_flag_values(@_, $flagtypes->{$type});
     }
     return \%flags;
@@ -615,9 +615,9 @@ sub _create_one_bug {
     
     # These are necessary for the changedfrom tests.
     my $extra_values = $self->_extra_bug_create_values->{$number};
-    foreach my $field qw(comments remaining_time percentage_complete
+    foreach my $field (qw(comments remaining_time percentage_complete
                          keyword_objects everconfirmed dependson blocked
-                         groups_in classification)
+                         groups_in classification))
     {
         $extra_values->{$field} = $bug->$field;
     }