#!/usr/local/bin/perl -w
use strict ;
+use File::Slurp ;
use Carp ;
use POSIX qw( :fcntl_h ) ;
# 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 = (
'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() ;