Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
r=gerv a=LpSolit


git-svn-id: svn://10.0.0.236/trunk@261490 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
mkanat%bugzilla.org
2010-10-28 15:35:02 +00:00
parent c375e92b68
commit 69002b97f4
8 changed files with 11 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mozilla/webtools/bugzilla/.bzrrev
View File

@@ -1 +1 @@
7580
7581

2
mozilla/webtools/bugzilla/Bugzilla/Bug.pm
View File

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

4
mozilla/webtools/bugzilla/Bugzilla/CGI.pm
View File

@@ -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");
}
}

2
mozilla/webtools/bugzilla/Bugzilla/Search.pm
View File

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

2
mozilla/webtools/bugzilla/Bugzilla/WebService/Bug.pm
View File

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

2
mozilla/webtools/bugzilla/chart.cgi
View File

@@ -200,7 +200,7 @@ elsif ($action eq "delete") {
$series->remove_from_db();
# Remove (sub)categories which no longer have any series.
foreach my $cat qw(category subcategory) {
foreach my $cat (qw(category subcategory)) {
my $is_used = $dbh->selectrow_array("SELECT COUNT(*) FROM series WHERE $cat = ?",
undef, $series->{"${cat}_id"});
if (!$is_used) {

2
mozilla/webtools/bugzilla/editflagtypes.cgi
View File

@@ -112,7 +112,7 @@ if (my ($category_action) = grep { $_ =~ /^categoryAction-(?:\w+)$/ } $cgi->para
my $type = {};
$type->{$_} = $cgi->param($_) foreach $cgi->param();
# Make sure boolean fields are defined, else they fall back to 1.
foreach my $boolean qw(is_active is_requestable is_requesteeble is_multiplicable) {
foreach my $boolean (qw(is_active is_requestable is_requesteeble is_multiplicable)) {
$type->{$boolean} ||= 0;
}

8
mozilla/webtools/bugzilla/xt/lib/Bugzilla/Test/Search.pm
View File

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