Fix deprecation warnings

rakudo · Nov 27, 2014 · 5823369 · 5823369
1 parent 1e4fe4a
commit 5823369
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/core/IO/ArgFiles.pm b/src/core/IO/ArgFiles.pm
@@ -38,11 +38,9 @@ my class IO::ArgFiles is IO::Handle {
             $!io.close;
         }
         while $!args {
-            my $fn = $!args.shift;
-            my $file = open($fn);
-            @chunks.push: $file.slurp;
+            @chunks.push: slurp $!args.shift;
         }
-        return $*IN.slurp unless @chunks;
+        return $*IN.slurp-rest unless @chunks;
         @chunks.join;
     }
 }