X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Flive_engine_response_headers.t;h=a0663e16f6584d8093c772caa2591e4f80f774ac;hp=123b125a8ba7b3ec5178ec3673ecb5f4ebdac77d;hb=35b3434762d426e0cd5e04eb735291f8ca7ea08e;hpb=43c581537432e9e6dd82d10375e1aac4cbcff5fb

diff --git a/t/aggregate/live_engine_response_headers.t b/t/aggregate/live_engine_response_headers.t
index 123b125..a0663e1 100644
--- a/t/aggregate/live_engine_response_headers.t
+++ b/t/aggregate/live_engine_response_headers.t
@@ -1,5 +1,3 @@
-#!perl
-
 use strict;
 use warnings;
 
@@ -12,7 +10,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)