Author: chromatic
Date: Mon Dec 29 12:29:17 2008
New Revision: 34591
Modified:
trunk/languages/perl6/src/builtins/io.pir
Log:
[Rakudo] Fixed IO open modes; all spectests pass again.
Modified: trunk/languages/perl6/src/builtins/io.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/io.pir (original)
+++ trunk/languages/perl6/src/builtins/io.pir Mon Dec 29 12:29:17 2008
@@ -64,13 +64,13 @@
if w goto is_write
if a goto is_append
is_read:
- mode = "<"
+ mode = "r"
goto done_mode
is_write:
- mode = ">"
+ mode = "w"
goto done_mode
is_append:
- mode = ">>"
+ mode = "wa"
goto done_mode
done_mode:
