# New Ticket Created by Jerome Quelin
# Please include the string: [perl #19328]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=19328 >
Hi there,
While trying to use a PerlArray of PerlArrays (guess why? :-) ), I ran
into a strange behavior. Look at the following code:
new P0, .PerlArray
new P1, .PerlArray
push P1, 9
push P1, 8
push P1, 7
push P1, 6
push P1, 5
push P0, P1
new P1, .PerlArray
push P1, 4
push P1, 3
push P1, 2
push P1, 1
push P1, 0
push P0, P1
bsr DUMP
print "---\n"
set P0[1;3], 9
bsr DUMP
end
DUMP:
set I0, 0
LOOP0:
set I1, 0
LOOP1:
set I2, P0[I0;I1]
print I2
print " "
inc I1
lt I1, 5, LOOP1
inc I0
print "\n"
lt I0, 2, LOOP0
ret
I get the following result:
9 8 7 6 5
4 3 2 1 0
---
9 8 7 6 5
4 3 2 1 0
although I'd rather have:
9 8 7 6 5
4 3 2 1 0
---
9 8 7 6 5
4 3 2 9 0
When I get the 2nd perlarray (corresponding to offset 1), then set the
3rd integer in it, then set back the perlarray, I get the correct
answer.
Is it a bug or a feature? For me, it looks like a bug, and I'd be happy
to be able to set a slot in a PerlArray of PerlArrays via set P0[x;y].
Cheers,
Jerome
--
[EMAIL PROTECTED]
