Is it right behaviour?
##
my @threads= ();
while( my ($key, $value)= each %conf ) {
#threads->create( {'context' => 'list'}, \&pinger, $value->{ip},
$value->{interval}, $value->{count}, $value->{size} );
push @threads, {
num => threads->create( {'context' => 'list'}, \&pinger,
$value->{ip}, int(rand(5))+1, int(rand(5))+1, $value->{size} )
,name => $value->{name}
};
}
print Dumper \@threads;
__OUTPUT__
$VAR1 = [
{
'num' => bless( do{\(my $o = '675271168')}, 'threads' ),
'name' => undef
},
{
'num' => bless( do{\(my $o = '675855616')}, 'threads' ),
'name' => undef
},
{
'num' => bless( do{\(my $o = '677433152')}, 'threads' ),
'name' => undef
},
..
RT for rt.cpan.org