From 5ba4b1aff6564126b3d0b1e7741b992d178d8f66 Mon Sep 17 00:00:00 2001 From: Frédéric Buclin Date: Thu, 28 Oct 2010 17:20:46 +0200 Subject: Bug 607966: Use of qw(...) as parentheses is deprecated since Perl 5.13.5 r=gerv a=LpSolit --- xt/lib/Bugzilla/Test/Search.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'xt') 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; } -- cgit v1.2.3-24-g4f1b