I have a snippet of code like:
typeof $S12, tcl_words
$I12 = tcl_words
print "TYPEOF: "
print $S12
print "\n"
print "SIZEOF: "
print $I12
print "\n"
(var_start_at,var_length,var_replace_str) = __var_subst(var_current_word)
typeof $S12, tcl_words
$I12 = tcl_words
print "TYPEOF: "
print $S12
print "\n"
print "SIZEOF: "
print $I12
print "\n"
Which is displaying:
TYPEOF: PerlArray SIZEOF: 7 TYPEOF: PerlArray SIZEOF: 1
if I do a saveall/restoreall around the call to __var_subst, then I get the expected:
TYPEOF: PerlArray SIZEOF: 7 TYPEOF: PerlArray SIZEOF: 7
But then my return values are trounced.
Is this a bug, or just a misunderstanding on my part?
--
Will "Coke" Coleda will at coleda dot com
