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"
