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

[svn:parrot] r33796 - trunk/languages/lisp

From:
fperrad
Date:
December 11, 2008 01:30
Subject:
[svn:parrot] r33796 - trunk/languages/lisp
Message ID:
20081211093009.E2FF1CB9AF@x12.develooper.com
Author: fperrad
Date: Thu Dec 11 01:30:09 2008
New Revision: 33796

Modified:
   trunk/languages/lisp/system.pir

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

Modified: trunk/languages/lisp/system.pir
==============================================================================
--- trunk/languages/lisp/system.pir	(original)
+++ trunk/languages/lisp/system.pir	Thu Dec 11 01:30:09 2008
@@ -413,7 +413,7 @@
   .CAR(fname2,args)
    fname1 = fname2
 
-   open fd, fname1, "<"
+   open fd, fname1, "r"
    unless fd, OPEN_FAILED
 
   .STREAM(stream, fd)



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