Merge pull request #262 from Nami-Doc/patch-2

Implement IO.read :rw as specced
rakudo · Apr 16, 2014 · 0c11bcb · 0c11bcb
2 parents f1f30d2 + e572536
commit 0c11bcb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -93,9 +93,10 @@ my class IO::Handle does IO::FileTestable {
     has $.path;
 
     proto method open(|) { * }
-    multi method open($path? is copy, :$r, :$w, :$a, :$p, :$bin, :$chomp = Bool::True,
+    multi method open($path? is copy, :$r, :$w, :$rw, :$a, :$p, :$bin, :$chomp = Bool::True,
             :enc(:$encoding) = 'utf8') {
         $path //= $!path;
+        $r = $w = True if $rw;
         my $abspath = defined($*CWD) ?? IO::Spec.rel2abs($path) !! $path;
 #?if parrot
         my $mode =  $p ?? ($w ||  $a ?? 'wp' !! 'rp') !!