# New Ticket Created by John Gardiner Myers # Please include the string: [perl #37161] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=37161 >
This is a bug report for perl from [EMAIL PROTECTED], generated with the help of perlbug 1.35 running under perl v5.8.7. ----------------------------------------------------------------- The following test program should result in the file "output" containing utf-8 encoded data, but instead results in the file containing iso-8859-1 encoded data. use strict; use warnings; use threads; our $outfd; sub dolog { print $outfd "ab\xc6"; } die "unable to open output: $!\n" unless open($outfd, '>:utf8', 'output'); threads->create('dolog'); foreach (threads->list()) { $_->join(); } [Please do not change anything below this line] ----------------------------------------------------------------- --- Flags: category=core severity=medium --- Site configuration information for perl v5.8.7: Configured by jgmyers at Mon Jul 25 16:01:57 PDT 2005. Summary of my perl5 (revision 5 version 8 subversion 7) configuration: Platform: osname=linux, osvers=2.4.21-32.0.1.elsmp, archname=i686-linux-thread-multi uname='linux pong.us.proofpoint.com 2.4.21-32.0.1.elsmp #1 smp tue may 17 17:52:23 edt 2005 i686 i686 i386 gnulinux ' config_args='' hint=recommended, useposix=true, d_sigaction=define usethreads=define use5005threads=undef useithreads=define usemultiplicity=define useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm', optimize='-O2 -g', cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -pipe -I/usr/local/include -I/usr/include/gdbm' ccversion='', gccversion='3.3.3', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=4, prototype=define Linker and Libraries: ld='gcc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc libc=/lib/libc-2.3.2.so, so=so, useshrplib=false, libperl=libperl.a gnulibc_version='2.3.2' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' Locally applied patches: --- @INC for perl v5.8.7: /u/jgmyers/perl/lib/5.8.7/i686-linux-thread-multi /u/jgmyers/perl/lib/5.8.7 /u/jgmyers/perl/lib/site_perl/5.8.7/i686-linux-thread-multi /u/jgmyers/perl/lib/site_perl/5.8.7 /u/jgmyers/perl/lib/site_perl/5.8.6/i686-linux-thread-multi /u/jgmyers/perl/lib/site_perl/5.8.6 /u/jgmyers/perl/lib/site_perl/5.8.5/i686-linux-thread-multi /u/jgmyers/perl/lib/site_perl/5.8.5 /u/jgmyers/perl/lib/site_perl/5.8.3/i686-linux-thread-multi /u/jgmyers/perl/lib/site_perl/5.8.3 /u/jgmyers/perl/lib/site_perl . --- Environment for perl v5.8.7: HOME=/u/jgmyers LANG=en_US LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/tools/x/bin:/usr/kerberos/bin:/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/u/jgmyers/bin PERL_BADLANG (unset) SHELL=/bin/bash