# New Ticket Created by Leon Brocard
# Please include the string: [perl #16874]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16874 >
Hi.
I have a weird bug where concatenation is sometimes failing, and I
have no idea why. See the attached pasm. I fully expect both works and
weird to output "foo", "bar", "quux" with various levels of spacing,
but weird doesn't output quux.
acme@parrot parrot $ perl assemble.pl foo.pasm -o run.pbc; ./parrot run.pbc
works: [foo bar quux ]
wierd: [foo bar]
Weird huh? [For future use: how would I go about debugging something
like this?]
Leon
--
Leon Brocard.............................http://www.astray.com/
scribot.................................http://www.scribot.com/
....... I'd love to go out with you, but I have to floss my cat
-- attachment 1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/36087/29210/4d445c/foo.pasm
set S0, "foo "
set S1, "bar "
set S2, "quux "
set S15, ""
concat S15, S0
concat S15, S1
concat S15, S2
print "works: ["
print S15
print "]\n"
set S0, "foo "
set S1, "bar "
set S2, "quux "
set S15, ""
concat S15, S0
concat S15, S1
concat S15, S2
print "wierd: ["
print S15
print "]\n"
end
