summaryrefslogtreecommitdiffstats
path: root/Bugzilla
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 /Bugzilla
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 'Bugzilla')
-rw-r--r--Bugzilla/Bug.pm2
-rw-r--r--Bugzilla/CGI.pm4
-rw-r--r--Bugzilla/Search.pm2
-rw-r--r--Bugzilla/WebService/Bug.pm2
4 files changed, 4 insertions, 6 deletions
diff --git a/Bugzilla/Bug.pm b/Bugzilla/Bug.pm
index abc00c298..d3f0023b8 100644
--- a/Bugzilla/Bug.pm
+++ b/Bugzilla/Bug.pm
@@ -1481,7 +1481,7 @@ sub _check_dependencies {
my %deps_in = (dependson => $depends_on || '', blocked => $blocks || '');
- foreach my $type qw(dependson blocked) {
+ foreach my $type (qw(dependson blocked)) {
my @bug_ids = ref($deps_in{$type})
? @{$deps_in{$type}}
: split(/[\s,]+/, $deps_in{$type});
diff --git a/Bugzilla/CGI.pm b/Bugzilla/CGI.pm
index 054ba96a0..a9b938c6d 100644
--- a/Bugzilla/CGI.pm
+++ b/Bugzilla/CGI.pm
@@ -159,9 +159,7 @@ sub clean_search_url {
foreach my $num (1,2,3) {
# If there's no value in the email field, delete the related fields.
if (!$self->param("email$num")) {
- foreach my $field qw(type assigned_to reporter qa_contact
- cc longdesc)
- {
+ foreach my $field (qw(type assigned_to reporter qa_contact cc longdesc)) {
$self->delete("email$field$num");
}
}
diff --git a/Bugzilla/Search.pm b/Bugzilla/Search.pm
index bcbe3a2a5..d81e26c16 100644
--- a/Bugzilla/Search.pm
+++ b/Bugzilla/Search.pm
@@ -1393,7 +1393,7 @@ sub _special_parse_email {
$type = "anyexact" if $type eq "exact";
my @or_charts;
- foreach my $field qw(assigned_to reporter cc qa_contact) {
+ foreach my $field (qw(assigned_to reporter cc qa_contact)) {
if ($params->{"email$field$id"}) {
push(@or_charts, $field, $type, $email);
}
diff --git a/Bugzilla/WebService/Bug.pm b/Bugzilla/WebService/Bug.pm
index a36eed957..afd235404 100644
--- a/Bugzilla/WebService/Bug.pm
+++ b/Bugzilla/WebService/Bug.pm
@@ -931,7 +931,7 @@ sub _attachment_to_hash {
# creator/attacher require an extra lookup, so we only send them if
# the filter wants them.
- foreach my $field qw(creator attacher) {
+ foreach my $field (qw(creator attacher)) {
if (filter_wants $filters, $field) {
$item->{$field} = $self->type('string', $attach->attacher->login);
}