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

[svn:parrot] r34539 - trunk/compilers/tge

From:
coke
Date:
December 28, 2008 19:39
Subject:
[svn:parrot] r34539 - trunk/compilers/tge
Message ID:
20081229033917.D5123CB9FA@x12.develooper.com
Author: coke
Date: Sun Dec 28 19:39:16 2008
New Revision: 34539

Modified:
   trunk/compilers/tge/tgc.pir

Log:
Update mode usage for TGE.

Courtesy GeJ++



Modified: trunk/compilers/tge/tgc.pir
==============================================================================
--- trunk/compilers/tge/tgc.pir	(original)
+++ trunk/compilers/tge/tgc.pir	Sun Dec 28 19:39:16 2008
@@ -66,14 +66,14 @@
 
   OUTPUT_FILE:
     outfile = opts['output']
-    outfh = open outfile, '>'
+    outfh = open outfile, 'w'
     unless outfh goto ERR_NO_OUTFILE
 
   OUTPUT_DONE:
 
     # Read grammar file and compile here
     .local pmc infh
-    infh = open infile, "<"
+    infh = open infile, 'r'
     unless infh goto ERR_NO_INFILE
 
     .local string source



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