perl 多线程问题

程序一运行  就输出下面内容   
*** glibc detected *** perl: double free or corruption (!prev): 0x0817c448 ***
======= Backtrace: =========
/lib/libc.so.6[0x166efd]
/lib/libc.so.6(cfree+0x90)[0x16a550]
/lib/libc.so.6(closedir+0x2[0x18a678]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_clear+0x7cd)[0x75454d]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_free+0x85)[0x754665]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_gp_free+0xab)[0x6f0f8b]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_clear+0x563)[0x7542e3]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_free+0x85)[0x754665]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_av_undef+0x6f)[0x747abf]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_clear+0x5b3)[0x754333]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_free+0x85)[0x754665]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_pad_undef+0x75)[0x723bc5]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_cv_undef+0x5c)[0x715b4c]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_clear+0x545)[0x7542c5]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_free+0x85)[0x754665]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_cv_undef+0x16c)[0x715c5c]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_clear+0x545)[0x7542c5]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_free+0x85)[0x754665]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so[0x754afb]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so[0x751cd0]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_sv_clean_all+0x37)[0x751da7]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(perl_destruct+0xbf4)[0x6ef374]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/threads/threads.so[0xb7c0129c]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/threads/threads.so(Perl_ithread_join+0x21c)[0xb7c0152c]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/threads/threads.so(XS_threads_join+0x7c)[0xb7c0168c]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_pp_entersub+0x40d)[0x74f51d]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(Perl_runops_standard+0x1f)[0x74897f]
/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so(perl_run+0x2ee)[0x6ee1ce]
perl(main+0x13e)[0x80491ee]
/lib/libc.so.6(__libc_start_main+0xdc)[0x116f2c]
perl[0x8049021]
======= Memory map: ========
00101000-00238000 r-xp 00000000 03:01 489213     /lib/libc-2.5.so
00238000-0023a000 r--p 00137000 03:01 489213     /lib/libc-2.5.so
0023a000-0023b000 rw-p 00139000 03:01 489213     /lib/libc-2.5.so
0023b000-0023e000 rw-p 00000000 00:00 0
00356000-0036f000 r-xp 00000000 03:01 489212     /lib/ld-2.5.so
0036f000-00370000 r--p 00018000 03:01 489212     /lib/ld-2.5.so
00370000-00371000 rw-p 00019000 03:01 489212     /lib/ld-2.5.so
0038c000-0039e000 r-xp 00000000 03:01 489247     /lib/libnsl-2.5.so
0039e000-0039f000 r--p 00012000 03:01 489247     /lib/libnsl-2.5.so
0039f000-003a0000 rw-p 00013000 03:01 489247     /lib/libnsl-2.5.so
003a0000-003a2000 rw-p 00000000 00:00 0
003a4000-003b3000 r-xp 00000000 03:01 489311     /lib/libresolv-2.5.so
003b3000-003b4000 r--p 0000e000 03:01 489311     /lib/libresolv-2.5.so
003b4000-003b5000 rw-p 0000f000 03:01 489311     /lib/libresolv-2.5.so
003b5000-003b7000 rw-p 00000000 00:00 0
006c7000-007f1000 r-xp 00000000 03:01 1960646    /usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so
007f1000-007f6000 rw-p 0012a000 03:01 1960646    /usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE/libperl.so
007f6000-007f8000 rw-p 00000000 00:00 0
00d25000-00d4a000 r-xp 00000000 03:01 489253     /lib/libm-2.5.so
00d4a000-00d4b000 r--p 00024000 03:01 489253     /lib/libm-2.5.so
00d4b000-00d4c000 rw-p 00025000 03:01 489253     /lib/libm-2.5.so
00d4e000-00d50000 r-xp 00000000 03:01 489214     /lib/libdl-2.5.so
00d50000-00d51000 r--p 00001000 03:01 489214     /lib/libdl-2.5.so
00d51000-00d52000 rw-p 00002000 03:01 489214     /lib/libdl-2.5.so
00d54000-00d67000 r-xp 00000000 03:01 489215     /lib/libpthread-2.5.so
00d67000-00d68000 r--p 00012000 03:01 489215     /lib/libpthread-2.5.so
00d68000-00d69000 rw-p 00013000 03:01 489215     /lib/libpthread-2.5.so
00d69000-00d6b000 rw-p 00000000 00:00 0
02b0b000-02b10000 r-xp 00000000 03:01 489315     /lib/libcrypt-2.5.so
02b10000-02b11000 r--p 00004000 03:01 489315     /lib/libcrypt-2.5.so
02b11000-02b12000 rw-p 00005000 03:01 489315     /lib/libcrypt-2.5.so
02b12000-02b39000 rw-p 00000000 00:00 0
02b3b000-02b3d000 r-xp 00000000 03:01 489327     /lib/libutil-2.5.so
02b3d000-02b3e000 r--p 00001000 03:01 489327     /lib/libutil-2.5.so
02b3e000-02b3f000 rw-p 00002000 03:01 489327     /lib/libutil-2.5.so
08048000-0804b000 r-xp 00000000 03:01 785837     /usr/bin/perl
0804b000-0804c000 rw-p 00002000 03:01 785837     /usr/bin/perl
0804c000-08527000 rw-p 00000000 00:00 0          [heap]
b5fff000-b6000000 ---p 00000000 00:00 0
b6000000-b6800000 rw-p 00000000 00:00 0
b6800000-b689a000 rw-p 00000000 00:00 0
b689a000-b6900000 ---p 00000000 00:00 0
b69ff000-b6a00000 ---p 00000000 00:00 0
b6a00000-b7200000 rw-p 00000000 00:00 0
b7200000-b7300000 rw-p 00000000 00:00 0
b739e000-b73ba000 r-xp 00000000 03:01 803311     /usr/local/lib/libgcc_s.so.1
b73ba000-b73bb000 rw-p 0001c000 03:01 803311     /usr/local/lib/libgcc_s.so.1
b73bb000-b73bc000 ---p 00000000 00:00 0
b73bc000-b7bbc000 rw-p 00000000 00:00 0
b7bdd000-b7bfe000 rw-p 00000000 00:00 0
b7bfe000-b7c04000 r-xp 00000000 03:01 1962252    /usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/threads/threads.so
b7c04000-b7c05000 rw-p 00005000 03:01 1962252    /usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/threads/threads.so
b7c05000-b7c26000 rw-p 00000000 00:00 0
b7c26000-b7d2c000 r--p 01871000 03:01 785657     /usr/lib/locale/locale-archive
b7d2c000-b7f2c000 r--p 00000000 03:01 785657     /usr/lib/locale/locale-archive
b7f2c000-b7f2f000 rw-p 00000000 00:00 0
b7f40000-b7f49000 r-xp 00000000 03:01 1962251    /usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/threads/shared/shared.so
b7f49000-b7f4a000 rw-p 00009000 03:01 1962251    /usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/threads/shared/shared.so
b7f4a000-b7f4b000 rw-p 00000000 00:00 0
bf9f5000-bfa0a000 rw-p 00000000 00:00 0          [stack]
ffffe000-fffff000 r-xp 00000000 00:00 0          [vdso]
ÒÑ·ÅÆú

可能是线程退出的时候出问题了