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

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

From:
coke
Date:
December 28, 2008 17:18
Subject:
[svn:parrot] r34531 - in trunk: runtime/parrot/library tools/dev
Message ID:
20081229011800.320FECB9FA@x12.develooper.com
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"



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