X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FTestAppUnicode%2FController%2FRoot.pm;fp=t%2Flib%2FTestAppUnicode%2FController%2FRoot.pm;h=e105761e0ff205a7b45018ad7cb951dcb7b241d9;hp=f69348693363f23e96fb3ff8fd44a779b9b91254;hb=1d285816f88ccd8b81e733565ca4363140b75ec8;hpb=919758f4a82078cc9c627dc45f6e83fcb369f24c diff --git a/t/lib/TestAppUnicode/Controller/Root.pm b/t/lib/TestAppUnicode/Controller/Root.pm index f693486..e105761 100644 --- 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) {}