The error is "variable is array", not "variable is an array".

git-svn-id: https://svn.parrot.org/parrot/trunk@8464 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
fernandobrito · Jun 27, 2005 · 761fc60 · 761fc60
1 parent c6a1226
commit 761fc60
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/languages/tcl/lib/variables.pir b/languages/tcl/lib/variables.pir
@@ -70,7 +70,7 @@ cant_read_array:
   return_type = TCL_ERROR
   $S0 = "can't read \""
   $S0 .= name
-  $S0 .= "\": variable is an array"
+  $S0 .= "\": variable is array"
   variable = new String
   variable = $S0
   goto done

diff --git a/languages/tcl/t/tcl_var_subst.t b/languages/tcl/t/tcl_var_subst.t
@@ -50,7 +50,7 @@ language_output_is("tcl",<<'TCL',<<OUT,"array as scalar");
   set a(b) 2
   puts $a
 TCL
-can't read \"a\": variable is an array
+can't read \"a\": variable is array
 OUT
 
 language_output_is("tcl",<<'TCL',<<'OUT','${} substitute an array');