Hatena::Groupmobilehacker

tokuhiromの日記 RSSフィード

 | 

2008-04-21

Encode::JP::Mobile が SEGV 14:43 Encode::JP::Mobile が SEGV - tokuhiromの日記 を含むブックマーク はてなブックマーク - Encode::JP::Mobile が SEGV - tokuhiromの日記 Encode::JP::Mobile が SEGV - tokuhiromの日記 のブックマークコメント

use strict;
use warnings;
use Encode;
use Encode::JP::Mobile;

my $src = "\x{3093}\x{306a}\x{306e}\x{30d2}\x{30c8}\x{30b3}\x{30c8}</spa=\"mineStatus\" style=\"background-color:#f4f4f4\"> \x{ec50} <b\n";
encode( 'x-sjis-docomo', $src, sub { "\x{3013}" } );

で SEGV する。

(gdb) bt
#0  0xb7f56410 in ?? ()
#1  0xbf9dd030 in ?? ()
#2  0x00000006 in ?? ()
#3  0x00000520 in ?? ()
#4  0xb7e0a811 in raise () from /lib/tls/i686/cmov/libc.so.6
#5  0xb7e0bfb9 in abort () from /lib/tls/i686/cmov/libc.so.6
#6  0xb7e3fdfa in __fsetlocking () from /lib/tls/i686/cmov/libc.so.6
#7  0xb7e486d0 in free () from /lib/tls/i686/cmov/libc.so.6
#8  0xb7e499ef in malloc () from /lib/tls/i686/cmov/libc.so.6
#9  0x080ac82f in Perl_safesysmalloc ()
#10 0x08118e40 in Perl_bytes_to_utf8 ()
#11 0x080d7696 in Perl_sv_utf8_upgrade_flags ()
#12 0x080d791f in Perl_sv_catsv_flags ()
#13 0xb7b1fb25 in encode_method () from /usr/local/lib/perl/5.8.8/auto/Encode/Encode.so
#14 0xb7b1fdcb in XS_Encode__XS_encode () from /usr/local/lib/perl/5.8.8/auto/Encode/Encode.so
#15 0x080bdac1 in Perl_pp_entersub ()
#16 0x080bc399 in Perl_runops_standard ()
#17 0x08063bfd in perl_run ()
#18 0x0805ffd1 in main ()
 |