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

[svn:parrot] r34330 - in trunk/languages/m4: src t/builtins

From:
bernhard
Date:
December 24, 2008 03:52
Subject:
[svn:parrot] r34330 - in trunk/languages/m4: src t/builtins
Message ID:
20081224115236.03CA4CBA12@x12.develooper.com
Author: bernhard
Date: Wed Dec 24 03:52:32 2008
New Revision: 34330

Modified:
   trunk/languages/m4/src/input.pir
   trunk/languages/m4/t/builtins/017_printerr.t

Log:
[m4] The ParrotIO PMC is gone.


Modified: trunk/languages/m4/src/input.pir
==============================================================================
--- trunk/languages/m4/src/input.pir	(original)
+++ trunk/languages/m4/src/input.pir	Wed Dec 24 03:52:32 2008
@@ -103,8 +103,8 @@
   .local pmc    pio
   .local int    is_defined
 
-  pio = new 'ParrotIO'
-  input_string = pio.'slurp'( filename )
+  pio = new 'FileHandle'
+  input_string = pio.'readall'( filename )
 
   # state['stack';'input'] has been created in input_init
   # TODO: seperate input blocks for every file

Modified: trunk/languages/m4/t/builtins/017_printerr.t
==============================================================================
--- trunk/languages/m4/t/builtins/017_printerr.t	(original)
+++ trunk/languages/m4/t/builtins/017_printerr.t	Wed Dec 24 03:52:32 2008
@@ -12,6 +12,6 @@
   language_output_is( 'm4', <<'CODE', <<'OUT', 'errprint with three args' );
 before errprint(   `Should',     `be', `printed on STDERR') after
 CODE
-Should be printed on STDERRbefore  after
+before Should be printed on STDERR after
 OUT
 }



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