develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34591 - trunk/languages/perl6/src/builtins

From:
chromatic
Date:
December 29, 2008 12:29
Subject:
[svn:parrot] r34591 - trunk/languages/perl6/src/builtins
Message ID:
20081229202918.1A00BCB9FA@x12.develooper.com
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:
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About