drop IO::Scalar prereq

[catagits/Catalyst-Runtime.git] / t / lib / TestAppUnicode / Controller / Root.pm

diff --git a/t/lib/TestAppUnicode/Controller/Root.pm b/t/lib/TestAppUnicode/Controller/Root.pm
index a944b95..e105761 100644 (file)
--- a/t/lib/TestAppUnicode/Controller/Root.pm
+++ b/t/lib/TestAppUnicode/Controller/Root.pm
@@ -7,7 +7,7 @@ __PACKAGE__->config(namespace => q{});
 
 use base 'Catalyst::Controller';
 
-sub main :Path('') { 
+sub main :Path('') {
     my ($self, $ctx, $charset) = @_;
     my $content_type = 'text/html';
     if ($ctx->stash->{charset}) {
@@ -52,7 +52,8 @@ sub latin1 :Local {
 sub file :Local {
     my ($self, $c) = @_;
     close *STDERR; # i am evil.
-    $c->response->body($main::TEST_FILE); # filehandle from test file
+    open my $test_file, '<', \"this is a test";
+    $c->response->body($test_file);
 }
 
 sub capture : Chained('/') CaptureArgs(1) {}