Append $\ in Catalyst::Response->print

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Engine / Response / Print.pm

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;