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 1d1f52d..13f3d04 100644 (file)
--- a/t/lib/TestApp/Controller/Engine/Response/Print.pm
+++ b/t/lib/TestApp/Controller/Engine/Response/Print.pm
@@ -1,7 +1,7 @@
 package TestApp::Controller::Engine::Response::Print;
 
 use strict;
-use base 'Catalyst::Base';
+use base 'Catalyst::Controller';
 
 sub one :Relative {
     my ( $self, $c ) = @_;
@@ -19,7 +19,9 @@ sub three :Relative {
     my ( $self, $c ) = @_;
 
     local $, = ',';
+    local $\ = ':';
     $c->res->print(qw/foo bar baz/);
 }
 
+
 1;