develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35142 - trunk/languages/befunge

From:
jquelin
Date:
January 7, 2009 09:34
Subject:
[svn:parrot] r35142 - trunk/languages/befunge
Message ID:
20090107173432.2F96CCB9F9@x12.develooper.com
Author: jquelin
Date: Wed Jan  7 09:34:31 2009
New Revision: 35142

Modified:
   trunk/languages/befunge/load.pir

Log:
removing trailing \n while reading program


Modified: trunk/languages/befunge/load.pir
==============================================================================
--- trunk/languages/befunge/load.pir	(original)
+++ trunk/languages/befunge/load.pir	Wed Jan  7 09:34:31 2009
@@ -28,6 +28,7 @@
     len  = length line
     if len <= 0 goto LOAD__EOF
 
+    chopn line, 1
     line     = _load__fit_str_to_80(line)
     playline = _load__str_to_array(line)
     push playfield, playline



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