ALT Linux repositórios
Group :: Desenvolvimento/Perl
RPM: perl-File-Slurp
Main Changelog Spec Patches Sources Download Gear Bugs e FR Repocop
Patch: perl-File-Slurp-9999.15-alt-deps.patch
Download
Download
--- 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 ) {