Allow warningless IO::Dup.slurp (for $*IN.slurp)

rakudo · Mar 9, 2015 · 9e2c657 · 9e2c657
1 parent b694705
commit 9e2c657
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/IO/Dup.pm b/src/core/IO/Dup.pm
@@ -23,6 +23,8 @@ class IO::Dup does IO does PIO {
         self!set-PIO-attributes(:$PIO,|c);
     }
 
+    multi method slurp(IO::Dup:D: |c) { self.slurp-rest(|c) }
+
     multi method WHICH(IO::Dup:D:) { "IO::Dup($!fileno)" }
     multi method Str(IO::Dup:D:)   { @name[$!fileno] // "Dup#$!fileno" }