summaryrefslogtreecommitdiffstats
path: root/xt/lib
diff options
context:
space:
mode:
authorFrédéric Buclin <LpSolit@gmail.com>2010-10-28 17:20:46 +0200
committerFrédéric Buclin <LpSolit@gmail.com>2010-10-28 17:20:46 +0200
commit5ba4b1aff6564126b3d0b1e7741b992d178d8f66 (patch)
treed61d32e7a433608eda5d62871eccafe23e931d43 /xt/lib
parenta6041007c544e7b2a8ae703c8e45e635e2ace991 (diff)
downloadbugzilla-5ba4b1aff6564126b3d0b1e7741b992d178d8f66.tar.gz
bugzilla-5ba4b1aff6564126b3d0b1e7741b992d178d8f66.tar.xz
Bug 607966: Use of qw(...) as parentheses is deprecated since Perl 5.13.5
r=gerv a=LpSolit
Diffstat (limited to 'xt/lib')
-rw-r--r--xt/lib/Bugzilla/Test/Search.pm8
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;
}