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

[svn:parrot] r33797 - trunk/languages/ook

From:
fperrad
Date:
December 11, 2008 01:31
Subject:
[svn:parrot] r33797 - trunk/languages/ook
Message ID:
20081211093115.CD3BACB9AF@x12.develooper.com
Author: fperrad
Date: Thu Dec 11 01:31:15 2008
New Revision: 33797

Modified:
   trunk/languages/ook/ook.pasm

Log:
[Ook] pdd22io
- replace deprecated mode/flag open 

Modified: trunk/languages/ook/ook.pasm
==============================================================================
--- trunk/languages/ook/ook.pasm	(original)
+++ trunk/languages/ook/ook.pasm	Thu Dec 11 01:31:15 2008
@@ -9,7 +9,7 @@
 # First, read the file.
         get_params "0", P5
         set S20, P5[1]      # Name of the Ook source.
-        open P20, S20, "<"  # P20 = file descriptor
+        open P20, S20, "r"  # P20 = file descriptor
         set S21, ""         # S21 = accumulator
 READ:
         read S22, P20, 256



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