cleanup

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

diff --git a/t/no_clobber.t b/t/no_clobber.t
index 4941fea..0251a1c 100644 (file)
--- a/t/no_clobber.t
+++ b/t/no_clobber.t
@@ -1,12 +1,10 @@
 #!/usr/local/bin/perl -w
 
 use strict ;
+use File::Slurp ;
 
-use Test::More tests => 3 ;
+use Test::More tests => 2 ;
 
-BEGIN{ 
-       use_ok( 'File::Slurp', qw( write_file ) ) ;
-}
 
 my $data = <<TEXT ;
 line 1