view release on metacpan or  search on metacpan

t/dblock.t  view on Meta::CPAN

    update_per_env($expected);
    my $perl_info = CPAN::Smoker::Utils::PerlConfig->new;
    $data_ref
        = block_distro( $distro_name, $perl_info->dump, 'Tests hang smoker' );
    delete( $data_ref->{full_path} );
    note('Testing with CPAN::Reporter::Smoker::OpenBSD::PerlConfig');
    is_deeply( $data_ref, $expected, 'block_distro works as expected' )
        or diag( explain($data_ref) );
}

sub update_per_env {
    my $expected = shift;
    my $shortcut = $expected->{match}->{perlconfig};
    $shortcut->{osname}   = $Config{osname};
    $shortcut->{archname} = $Config{archname};
    my $attrib_name = 'useithreads';

    if (    ( exists( $Config{$attrib_name} ) )
        and ( defined( $Config{$attrib_name} ) )
        and ( $Config{$attrib_name} eq 'define' ) )
    {