cleanup

[urisagit/Perl-Docs.git] / t / data_list.t

diff --git a/t/data_list.t b/t/data_list.t
index c793a5d..ac85b2e 100644 (file)
--- a/t/data_list.t
+++ b/t/data_list.t
@@ -1,20 +1,17 @@
 #!/usr/local/bin/perl -w
 
 use strict ;
+use File::Slurp ;
 
 use Carp ;
 use POSIX qw( :fcntl_h ) ;
-use Test::More tests => 2 ;
+use Test::More tests => 1 ;
 
 # 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() } ;
-}
-
-BEGIN{ 
-       use_ok( 'File::Slurp', ) ;
+       *SEEK_SET = sub { 0 } unless defined \&SEEK_SET ;
 }
 
 SKIP: {
@@ -37,7 +34,7 @@ sub test_data_list_slurp {
        my $data_seek = tell( \*DATA );
 
 # first slurp in the lines
- 
+
        my @slurp_lines = read_file( \*DATA ) ;
 
 # now seek back and read all the lines with the <> op and we make