[svn:parrot] r34531 - in trunk: runtime/parrot/library tools/dev

Author: coke
Date: Sun Dec 28 17:17:59 2008
New Revision: 34531

Modified:
   trunk/runtime/parrot/library/config.pir
   trunk/tools/dev/pbc_to_exe_gen.pl

Log:
Avoid deprecated open modes (This allows the build to complete if they are removed.)



Modified: trunk/runtime/parrot/library/config.pir
==============================================================================
--- trunk/runtime/parrot/library/config.pir	(original)
+++ trunk/runtime/parrot/library/config.pir	Sun Dec 28 17:17:59 2008
@@ -51,7 +51,7 @@
     conf_file = interpinfo .INTERPINFO_RUNTIME_PREFIX
     conf_file .= "/runtime/parrot/include/config.fpmc"
 
-    open CONF, conf_file, "<"
+    open CONF, conf_file, 'r'
     $I0 = defined CONF
     if $I0 goto ok1
     printerr "Can't read '"

Modified: trunk/tools/dev/pbc_to_exe_gen.pl
==============================================================================
--- trunk/tools/dev/pbc_to_exe_gen.pl	(original)
+++ trunk/tools/dev/pbc_to_exe_gen.pl	Sun Dec 28 17:17:59 2008
@@ -47,7 +47,7 @@
 
   open_outfile:
     .local pmc outfh
-    outfh = open cfile, '>'
+    outfh = open cfile, 'w'
     if outfh goto args_handled
     die "infile not specified"
 
@@ -142,7 +142,7 @@
     .param string infile
 
     .local pmc infh
-               infh = open infile, '<'
+               infh = open infile, 'r'
 
     if infh goto file_open
     die "cannot open infile"

• [svn:parrot] r34531 - in trunk: runtime/parrot/library tools/dev by coke