From 5ba4b1aff6564126b3d0b1e7741b992d178d8f66 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Buclin?= 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 --- Bugzilla/WebService/Bug.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Bugzilla/WebService') 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); } -- cgit v1.2.1