t/segv_utf8_lc.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 1;                      # last test to print
   6
   7 use Devel::Declare 'method' => sub{};
   8
   9 sub lowercase {
  10         lc $_[0];
  11 }
  12
  13 is lowercase("FOO\x{263a}"), "foo\x{263a}";
  14
  15 =pod
  16
  17 This test segfaults for me on rev 4944:
  18
  19 gdb --args perl -I blib/arch -I blib/lib t/segv_utf8_lc.t
  20
  21 #0  0xb7ca9a70 in dd_ck_const () from blib/arch/auto/Devel/Declare/Declare.so
  22 #1  0x0806be8d in Perl_vload_module ()
  23 #2  0x0806bfdc in Perl_load_module ()
  24 #3  0x080fa343 in Perl_swash_init ()
  25 #4  0x080fbb1b in Perl_to_utf8_case ()
  26 #5  0x080fbf97 in Perl_to_utf8_lower ()
  27 #6  0x080bdfb8 in Perl_pp_lc ()
  28 #7  0x080a3e0e in Perl_runops_standard ()
  29 #8  0x080a0420 in perl_run ()
  30 #9  0x080623a5 in main ()
  31
  32
  33 Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
  34   Platform:
  35     osname=linux, osvers=2.6.24-19-386, archname=i686-linux
  36     uname='linux schutz 2.6.24-19-386 #1 wed jun 18 14:09:56 utc 2008 i686 gnulinux '
  37     config_args='-Dprefix=/opt/perl'
  38     hint=recommended, useposix=true, d_sigaction=define
  39     useithreads=undef, usemultiplicity=undef
  40     useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
  41     use64bitint=undef, use64bitall=undef, uselongdouble=undef
  42     usemymalloc=n, bincompat5005=undef
  43   Compiler:
  44     cc='cc', ccflags ='-fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
  45     optimize='-O2',
  46     cppflags='-fno-strict-aliasing -pipe -I/usr/local/include'
  47     ccversion='', gccversion='4.2.3 (Ubuntu 4.2.3-2ubuntu7)', gccosandvers=''
  48     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
  49     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  50     ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
  51     alignbytes=4, prototype=define
  52   Linker and Libraries:
  53     ld='cc', ldflags =' -L/usr/local/lib'
  54     libpth=/usr/local/lib /lib /usr/lib
  55     libs=-lnsl -ldl -lm -lcrypt -lutil -lc
  56     perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
  57     libc=/lib/libc-2.7.so, so=so, useshrplib=false, libperl=libperl.a
  58     gnulibc_version='2.7'
  59   Dynamic Linking:
  60     dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
  61     cccdlflags='-fPIC', lddlflags='-shared -O2 -L/usr/local/lib'
  62
  63
  64 Characteristics of this binary (from libperl):
  65   Compile-time options: PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
  66                         USE_LARGE_FILES USE_PERLIO
  67   Built under linux
  68   Compiled at Jul  4 2008 02:57:13
  69   %ENV:
  70     PERL5LIB="/home/rhesa/perl:/home/expman/mod_perl_scripts/cpan:/home/expman/mod_perl_scripts"
  71   @INC:
  72     /home/rhesa/perl
  73     /home/expman/mod_perl_scripts/cpan
  74     /home/expman/mod_perl_scripts
  75     /opt/perl/lib/5.10.0/i686-linux
  76     /opt/perl/lib/5.10.0
  77     /opt/perl/lib/site_perl/5.10.0/i686-linux
  78     /opt/perl/lib/site_perl/5.10.0
  79     .
  80
  81 =cut
  82