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 f693486..e105761 100644 (file)
--- a/t/lib/TestAppUnicode/Controller/Root.pm
+++ b/t/lib/TestAppUnicode/Controller/Root.pm
@@ -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) {}