X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fhandle.t;h=5e1cd15b696fbd5a6e6d2baf6509d17839fbbea8;hb=997098525898485838522aa547a080189cb7a313;hp=8987375eb240dd2320099b38dc93de6d8e590840;hpb=e2c51d31d5bcdbbe99f9443e4908c912554bd061;p=urisagit%2FPerl-Docs.git

diff --git a/t/handle.t b/t/handle.t
index 8987375..5e1cd15 100644
--- a/t/handle.t
+++ b/t/handle.t
@@ -1,6 +1,7 @@
 #!/usr/local/bin/perl -w
 
 use strict ;
+use File::Slurp ;
 
 use Carp ;
 use POSIX qw( :fcntl_h ) ;
@@ -11,7 +12,7 @@ use Test::More ;
 # in case SEEK_SET isn't defined in older perls. it seems to always be 0
 
 BEGIN {
-	*SEEK_SET = sub { 0 } unless eval { SEEK_SET() } ;
+	*SEEK_SET = sub() { 0 } unless defined \&SEEK_SET ;
 }
 
 my @pipe_data = (
@@ -21,14 +22,8 @@ my @pipe_data = (
 	'abc' x 1_000_000,
 ) ;
 
-#plan( tests => 2 + @pipe_data ) ;
 plan( tests => scalar @pipe_data ) ;
 
-
-BEGIN{ 
-	use_ok( 'File::Slurp', )  ;
-}
-
 #test_data_slurp() ;
 
 #test_fork_pipe_slurp() ;