X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=extras%2Fslurp_bench.pl;h=68eb5fd443a55063e4047df1bb13adb6e9b51d27;hb=a878bbb412b2b9bd1960dd06a64241709895da02;hp=52c8ec046923c8b518313c0ae7d8d17cd0aea580;hpb=b3b7ff4ed8b9fb7172af774b2b898e2027bc3650;p=urisagit%2FPerl-Docs.git

diff --git a/extras/slurp_bench.pl b/extras/slurp_bench.pl
index 52c8ec0..68eb5fd 100755
--- a/extras/slurp_bench.pl
+++ b/extras/slurp_bench.pl
@@ -70,15 +70,15 @@ sub bench_scalar_slurp {
 		'FS12::read_file' =>
 	    		sub { my $text = FileSlurp_12::read_file( $file_name ) },
 
-# 		'FS::read_file_buf_ref' =>
-# 	    		sub { my $text ;
-# 			   File::Slurp::read_file( $file_name, buf_ref => \$text ) },
-# 		'FS::read_file_buf_ref2' =>
-# 	    		sub { 
-# 			   File::Slurp::read_file( $file_name, buf_ref => \$buffer ) },
-# 		'FS::read_file_scalar_ref' =>
-# 	    		sub { my $text =
-# 			    File::Slurp::read_file( $file_name, scalar_ref => 1 ) },
+		'FS::read_file_buf_ref' =>
+	    		sub { my $text ;
+			   File::Slurp::read_file( $file_name, buf_ref => \$text ) },
+		'FS::read_file_buf_ref2' =>
+	    		sub { 
+			   File::Slurp::read_file( $file_name, buf_ref => \$buffer ) },
+		'FS::read_file_scalar_ref' =>
+	    		sub { my $text =
+			    File::Slurp::read_file( $file_name, scalar_ref => 1 ) },
 
 		old_sysread_file =>
 	    		sub { my $text = old_sysread_file( $file_name ) },
@@ -384,7 +384,7 @@ sub parse_options {
 	$opts{direction} ||= 'both' ;
 	$opts{context} ||= 'both' ;
 	$opts{iterations} ||= -2 ;
-	$opts{sizes} ||= '500,10k,1m' ;
+	$opts{sizes} ||= '512,10k,1m' ;
 
 	if ( $opts{direction} eq 'both' ) {
 	
@@ -567,7 +567,7 @@ Usage: $0 [--iterations=<iter>] [--direction=<dir>] [--context=<con>]
 	--sizes=<size_list>	What sizes will be used in slurping (either
 	-s=<size_list>		direction). This is a comma separated list of
 				integers. You can use 'k' or 'm' as suffixes
-				for 1024 and 1024**2. Default is '500,1k,1m'.
+				for 1024 and 1024**2. Default is '512,10k,1m'.
 
 	--unlink		Unlink the written file before each time
 	-u			a file is written