[Catalyst-commits] r13596 - Catalyst-Runtime/5.80/trunk/t/aggregate

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2010-09-19 19:08:21 +0100 (Sun, 19 Sep 2010)
New Revision: 13596

Modified:
   Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_headers.t
Log:
Don't rely on qw() providing PAREN tokens

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_headers.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_headers.t	2010-09-14 21:38:04 UTC (rev 13595)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_headers.t	2010-09-19 18:08:21 UTC (rev 13596)
@@ -12,7 +12,7 @@
 
 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)