--- File-Slurp-9999.15/lib/File/Slurp.pm-	2011-03-25 01:01:40.000000000 +0300

+++ File-Slurp-9999.15/lib/File/Slurp.pm	2011-04-05 03:01:55.199165596 +0400

@@ -331,13 +331,13 @@ sub _check_ref {

 		return ;

 	}

-	eval { require overload } ;

+	require overload;

 # return an error if we can't load the overload pragma

 # or if the object isn't overloaded

 	return \"Bad handle '$handle' is not a GLOB or IO object or overloaded"

-		 if $@ || !overload::Overloaded( $handle ) ;

+		 if !overload::Overloaded( $handle ) ;

 # must be overloaded so return its stringified value

@@ -356,15 +356,7 @@ sub _seek_data_handle {

 # left at the same place as the fd pointer. this sysseek makes them

 # the same so slurping with sysread will work.

-	eval{ require B } ;

-

-	if ( $@ ) {

-

-		return <<ERR ;

-Can't find B.pm with this Perl: $!.

-That module is needed to properly slurp the DATA handle.

-ERR

-	}

+	require B;

 	if ( B::svref_2object( $handle )->IO->IoFLAGS & 16 ) {