- FileHandle.slurp() no longer uses sysread() as it's deprecated on h…

…andles that have the `:utf8` layer (since perl=5.23.2)
trizen · Sep 18, 2015 · f46fe9b · f46fe9b
1 parent 80db2df
commit f46fe9b
Showing 1 changed file with 6 additions and 9 deletions.
diff --git a/lib/Sidef/Types/Glob/FileHandle.pm b/lib/Sidef/Types/Glob/FileHandle.pm
@@ -116,15 +116,12 @@ package Sidef::Types::Glob::FileHandle {
 
     sub slurp {
         my ($self) = @_;
-
-        my $size = (-s $self->{fh});
-        if (not defined($size) or ($size == 0)) {
-            local $/;
-            return Sidef::Types::String::String->new(CORE::readline($self->{fh}));
-        }
-
-        CORE::sysread($self->{fh}, (my $content), $size);
-        Sidef::Types::String::String->new($content);
+        Sidef::Types::String::String->new(
+            do {
+                local $/;
+                CORE::readline($self->{fh});
+              }
+        );
     }
 
     sub readline {