Append $\ in Catalyst::Response->print

This more closely matches IO::Handle's behaviour.

diff --git a/lib/Catalyst/Response.pm b/lib/Catalyst/Response.pm
index 2bf4dfe..818ae86 100644 (file)
--- a/lib/Catalyst/Response.pm
+++ b/lib/Catalyst/Response.pm
@@ -201,6 +201,7 @@ sub print {
         defined $self->write($,) or return;
         defined $self->write($_) or return;
     }
+    defined $self->write($\) or return;
 
     return 1;
 }

diff --git a/t/aggregate/live_engine_response_print.t b/t/aggregate/live_engine_response_print.t
index ad00ea3..4e8f024 100644 (file)
--- a/t/aggregate/live_engine_response_print.t
+++ b/t/aggregate/live_engine_response_print.t
@@ -12,7 +12,7 @@ use Catalyst::Test 'TestApp';
 my $expected = {
    one => "foo",
    two => "foobar",
-   three => "foo,bar,baz",
+   three => "foo,bar,baz:",
 };
 
 for my $action ( sort keys %{$expected} ) {

diff --git a/t/lib/TestApp/Controller/Engine/Response/Print.pm b/t/lib/TestApp/Controller/Engine/Response/Print.pm
index 8d986f8..13f3d04 100644 (file)
--- a/t/lib/TestApp/Controller/Engine/Response/Print.pm
+++ b/t/lib/TestApp/Controller/Engine/Response/Print.pm
@@ -19,7 +19,9 @@ sub three :Relative {
     my ( $self, $c ) = @_;
 
     local $, = ',';
+    local $\ = ':';
     $c->res->print(qw/foo bar baz/);
 }
 
+
 1;