Select Code to Download

if ( ref $next_job eq "Mail::Sender"){
            $gl_thread_hsh{$gl_thread_hsh{next_thread}} = threads->new
+(
...
            $gl_thread_hsh{next_thread}=$gl_thread_hsh{next_thread}+1;
+        # Increment next available thread.
        }

*** glibc detected *** /usr/bin/perl: double free or corruption (out):
+ 0x00007fff69bf35e0 ***
======= Backtrace: =========
...
/usr/lib/libperl.so.5.12(Perl_sv_free2+0x52)[0x7fb82e8d4422]
/usr/lib/libperl.so.5.12(Perl_av_clear+0x158)[0x7fb82e8c3f88]
/usr/lib/libperl.so.5.12(Perl_pp_entersub+0x7b3)[0x7fb82e8ce6d3]