-#!perl
-
use strict;
use warnings;
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)
# method name is echo'd back in content-body, which
# accounts for difference in content length. In normal
# cases the Content-Length should be the same regardless
- # of if its a GET or HEAD request.
+ # of whether it's a GET or HEAD request.
SKIP:
{
if ( $ENV{CATALYST_SERVER} ) {