#!perl
use strict;
use warnings;
use Test::More;

BEGIN {
    use Config;
    if ( !$Config{'useithreads'} ) {
        print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
        exit(0);
    }
    elsif ( $] < 5.008007 ) {
        print("1..0 # SKIP Sereal not thread safe on Perls before 5.8.7\n");
        exit(0);
    }
}

use Sereal::Decoder;
plan tests => 1;
use threads;

sub foo { }
SCOPE: {
    my $enc= Sereal::Decoder->new;

    my $thr= threads->new( \&foo );
    $thr->join;
}

pass();
