Hardcoded usage of this functionality

This document is about hardcoded functionality which Check::Fork brings in other Perl distributions.

Distributions

FCGI

Version checked: 0.82

File: t/02-unix_domain_socket.t

# ...
my $can_fork = $Config{d_fork}
    || (
        ($^O eq 'MSWin32' || $^O eq 'NetWare')
        and $Config{useithreads}
        and $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
    );
# ...
} elsif (! $can_fork) {
    plan skip_all => 'no fork';
}
# ...

IO

Version checked: 1.48

File: t/cachepropagate-unix.t, t/cachepropagate-tcp.t

# ...
    skip "fork not available", 4
        unless $Config{d_fork} || $Config{d_pseudofork};
# ...

File: t/io_multihomed.t, t/io_unix.t, t/io_sock.t, t/io_pipe.t

# ...
    my $can_fork = $Config{d_fork} ||
                    (($^O eq 'MSWin32' || $^O eq 'NetWare') and
                     $Config{useithreads} and
                     $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
                    );
# ...
    elsif (!$can_fork) {
       $reason = 'no fork';
   }
# ...
    skip_all($reason) if $reason;
# ...

IO::Socket::INET6

Version checked: 2.72

File: t/io_multihomed6.t, t/io_sock6.t, t/host6.t

# ...
        if (! $Config{'d_fork'}) {
            $reason = 'no fork';
        }
# ...

IO::Socket::SSL

Version checked: 2.071

File: t/testlib.pl

# ...
unless ( $Config::Config{d_fork} || $Config::Config{d_pseudofork} ||
        (($^O eq 'MSWin32' || $^O eq 'NetWare') and
         $Config::Config{useithreads} and
         $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/) ) {
    print "1..0 # Skipped: fork not implemented on this platform\n";
    exit
}
# ...

Test::Simple

Version checked: 1.302190

File: lib/Test2/Util.pm

# ...
BEGIN {
    *IS_WIN32 = ($^O eq 'MSWin32') ? sub() { 1 } : sub() { 0 };
}

sub _can_thread {
    return 0 unless $] >= 5.008001;
    return 0 unless $Config{'useithreads'};

    # Threads are broken on perl 5.10.0 built with gcc 4.8+
    if ($] == 5.010000 && $Config{'ccname'} eq 'gcc' && $Config{'gccversion'}) {
        return 0 unless $Config{'gccversion'} =~ m/^(\d+)\.(\d+)/;
        my @parts = split /[\.\s]+/, $Config{'gccversion'};
        return 0 if $parts[0] > 4 || ($parts[0] == 4 && $parts[1] >= 8);
    }

    # Change to a version check if this ever changes
    return 0 if $INC{'Devel/Cover.pm'};
    return 1;
}

sub _can_fork {
    return 1 if $Config{d_fork};
    return 0 unless IS_WIN32 || $^O eq 'NetWare';
    return 0 unless $Config{useithreads};
    return 0 unless $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/;

    return _can_thread();
}
# ...

REPOSITORY

https://github.com/michal-josef-spacek/Check-Fork

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© 2021-2024 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.02