From: Robert Buels Date: Wed, 8 Jun 2011 22:25:27 +0000 (+0000) Subject: remove some whitespace dzil complains about X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FHTTP-Request-AsCGI.git;a=commitdiff_plain;h=bbe20ee9c92bc9db1960822b7c279a4cad1168aa remove some whitespace dzil complains about --- diff --git a/examples/daemon.pl b/examples/daemon.pl index c718487..37fdc0f 100644 --- a/examples/daemon.pl +++ b/examples/daemon.pl @@ -18,7 +18,7 @@ my $server = HTTP::Daemon->new( LocalPort => 3000, ReuseAddr => 1 ) print "Please contact me at: url, ">\n"; while ( my $client = $server->accept ) { - + my %e = ( REMOTE_ADDR => $client->peerhost, REMOTE_HOST => $client->peerhost, @@ -35,7 +35,7 @@ while ( my $client = $server->accept ) { my $q = CGI->new; print $q->header( -charset => 'UTF-8' ), - $q->start_html( + $q->start_html( -title => 'Hello World', -encoding => 'UTF-8' ), diff --git a/t/08error.t b/t/08error.t index f117014..1d516fb 100644 --- a/t/08error.t +++ b/t/08error.t @@ -32,7 +32,7 @@ ok( length($response->content) > 0, 'Response Content' ); my $c = HTTP::Request::AsCGI->new($r); $c->setup; - + print "Content-Type: text/plain\n"; print "Status: 500 Borked\n"; print "\n";