perl threads test

output

has thread support
has ithread support
config result: 0
eval result: 1
threads version: 1.960000

Perl-thread-test.pl

#!/usr/bin/perl
use strict;
require v5.10;

use Config;

if ($Config{usethreads}) {
    print "has thread support\n";
}
if ($Config{useithreads}) {
    print "has ithread support\n";
}

my $cft;
my $evt;
my $thv;

$cft = $Config{useithreads};
$evt = eval "use threads; use threads::shared; use Thread::Queue; 1";
$thv = $threads::VERSION;


printf("config result: %d\neval result: %d\nthreads version: %f\n", 
    $cft,$evt,$thv);