From: Florian Ragwitz <rafl@debian.org>
Date: Sun, 19 Sep 2010 18:08:21 +0000 (+0000)
Subject: Don't rely on qw() providing PAREN tokens
X-Git-Tag: 5.80028~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=88806717d5dbddca673493938f82d8164e3f9876

Don't rely on qw() providing PAREN tokens
---

diff --git a/t/aggregate/live_engine_response_headers.t b/t/aggregate/live_engine_response_headers.t
index 123b125..0e153cf 100644
--- a/t/aggregate/live_engine_response_headers.t
+++ b/t/aggregate/live_engine_response_headers.t
@@ -12,7 +12,7 @@ use HTTP::Request::Common;
 
 my $content_length;
 
-foreach my $method qw(HEAD GET) {
+foreach my $method (qw(HEAD GET)) {
     my $expected = join( ', ', 1 .. 10 );
 
     my $request = HTTP::Request::Common->can($method)