[svn:parrot] rev 8313 - trunk/languages/tcl/lib

[coke]

Author: coke
Date: Sat Jun 11 22:00:37 2005
New Revision: 8313

Modified:
   trunk/languages/tcl/lib/tclword.imc
Log:
comment use of Perl in this file.



Modified: trunk/languages/tcl/lib/tclword.imc
==============================================================================
--- trunk/languages/tcl/lib/tclword.imc (original)
+++ trunk/languages/tcl/lib/tclword.imc Sat Jun 11 22:00:37 2005
@@ -404,7 +404,10 @@ loop_done:  
 
 =head2 __dump
 
-Allow us to be rendered by Data::Dumper
+Allow us to be rendered by Data::Dumper 
+
+Not tested, uses pmcPerlArray dumper method because of the way Dumper is 
written.
+Shouldn't have to.
 
 =cut
 
@@ -451,7 +454,7 @@ skip:
 command:
   $P1 = $P0[1]
   # XXX This will need to change.
-  dumper.pmcPerlArray($P1)
+  dumper.pmcPerlArray($P1) 
   goto loop_next
 
 var: