drop IO::Scalar prereq

diff --git a/Makefile.PL b/Makefile.PL
index 9f373b8..393ebc0 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -16,7 +16,6 @@ my %META = (
         'Test::Fatal' => 0,
         'Test::More' => '0.88',
         'HTTP::Request::Common' => 0,
-        'IO::Scalar' => 0,
         'HTTP::Status' => 0,
       },
     },

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) {}

diff --git a/t/unicode_plugin_live.t b/t/unicode_plugin_live.t
index 901ae84..f3b5f90 100644 (file)
--- a/t/unicode_plugin_live.t
+++ b/t/unicode_plugin_live.t
@@ -1,7 +1,6 @@
 use strict;
 use warnings;
 use Test::More;
-use IO::Scalar;
 
 # setup library path
 use FindBin qw($Bin);
@@ -16,9 +15,6 @@ BEGIN {
 # make sure testapp works
 use_ok('TestAppUnicode') or BAIL_OUT($@);
 
-our $TEST_FILE = IO::Scalar->new(\"this is a test");
-sub IO::Scalar::FILENO { -1 }; # needed?
-
 # a live test against TestAppUnicode, the test application
 use Test::WWW::Mechanize::Catalyst 'TestAppUnicode';
 my $mech = Test::WWW::Mechanize::Catalyst->new;