[Catalyst-commits] r14037 - in HTTP-Request-AsCGI/trunk: examples t
rbuels at dev.catalyst.perl.org
rbuels at dev.catalyst.perl.org
Wed Jun 8 22:25:27 GMT 2011
Author: rbuels
Date: 2011-06-08 22:25:27 +0000 (Wed, 08 Jun 2011)
New Revision: 14037
Modified:
HTTP-Request-AsCGI/trunk/examples/daemon.pl
HTTP-Request-AsCGI/trunk/t/08error.t
Log:
remove some whitespace dzil complains about
Modified: HTTP-Request-AsCGI/trunk/examples/daemon.pl
===================================================================
--- HTTP-Request-AsCGI/trunk/examples/daemon.pl 2011-06-08 12:05:10 UTC (rev 14036)
+++ HTTP-Request-AsCGI/trunk/examples/daemon.pl 2011-06-08 22:25:27 UTC (rev 14037)
@@ -18,7 +18,7 @@
print "Please contact me at: <URL:", $server->url, ">\n";
while ( my $client = $server->accept ) {
-
+
my %e = (
REMOTE_ADDR => $client->peerhost,
REMOTE_HOST => $client->peerhost,
@@ -35,7 +35,7 @@
my $q = CGI->new;
print $q->header( -charset => 'UTF-8' ),
- $q->start_html(
+ $q->start_html(
-title => 'Hello World',
-encoding => 'UTF-8'
),
Modified: HTTP-Request-AsCGI/trunk/t/08error.t
===================================================================
--- HTTP-Request-AsCGI/trunk/t/08error.t 2011-06-08 12:05:10 UTC (rev 14036)
+++ HTTP-Request-AsCGI/trunk/t/08error.t 2011-06-08 22:25:27 UTC (rev 14037)
@@ -32,7 +32,7 @@
my $c = HTTP::Request::AsCGI->new($r);
$c->setup;
-
+
print "Content-Type: text/plain\n";
print "Status: 500 Borked\n";
print "\n";
More information about the Catalyst-commits
mailing list