id	summary	reporter	owner	description	type	status	priority	milestone	component	version	severity	resolution	keywords	cc	lang	patch	platform
1793	FileHandles do not properly transcode strings	pmichaud		"The following program creates three strings with exactly the same (logical) 2-character contents and verifies that the strings are equal.  However, when output to a filehandle set to use utf8 encoding, the strings produce different results -- the non-utf8 string isn't properly transcoded to the utf8 encoding used by the filehandle.

{{{
pmichaud@orange:~/parrot/trunk$ ./parrot_config revision
48985
pmichaud@orange:~/parrot/trunk$ cat a.pir
.sub main :main
    # set output encoding to utf8
    $P0 = getstdin
    $P0.'encoding'('utf8')

    # Build three strings of two characters each
    .local string a, b, c
    a = unicode:""\x{c3}\x{a9}""           # U+00C3 followed by U+00A9

    $S0 = chr 0xc3
    $S1 = chr 0xa9
    b   = concat $S0, $S1                # U+00C3 followed by U+00A9

    c   = concat unicode:"""", b           # U+00C3 followed by U+00A9

    # Show that they're all equal
    print ""a eq b == ""
    $I0 = iseq a, b
    say $I0

    print ""a eq c == ""
    $I0 = iseq a, c
    say $I0

    print ""b eq c == ""
    $I0 = iseq b, c
    say $I0

    # Display them
    say a
    say b
    say c
.end

pmichaud@orange:~/parrot/trunk$ ./parrot a.pir
a eq b == 1
a eq c == 1
b eq c == 1
é
é
é
pmichaud@orange:~/parrot/trunk$ 
}}}

In the above sample run, I expect the last three lines to produce the same output since the strings themselves are equivalent.  (One can do a hex dump of the output to verify that the middle string is different from the other two.)

Thanks!

Pm"	bug	closed	normal		core	2.7.0	medium	invalid			perl6