edited all .t tests to not use use_ok to load File::Slurp. they now all

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

diff --git a/t/stdin.t b/t/stdin.t
index 9786118..071e0d3 100644 (file)
--- a/t/stdin.t
+++ b/t/stdin.t
@@ -1,15 +1,12 @@
 #!/usr/local/bin/perl -w
 
 use strict ;
+use File::Slurp ;
 
 use Carp ;
 use Socket ;
 use Symbol ;
-use Test::More tests => 7 ;
-
-BEGIN{ 
-       use_ok( 'File::Slurp', ) ;
-}
+use Test::More tests => 6 ;
 
 my $data = <<TEXT ;
 line 1