File manager - Edit - /usr/share/doc/perl-Test-Simple-0.98/t/fork.t
Back
#!/usr/bin/perl -w BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = '../lib'; } } use Test::More; use Config; my $Can_Fork = $Config{d_fork} || (($^O eq 'MSWin32' || $^O eq 'NetWare') and $Config{useithreads} and $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/ ); if( !$Can_Fork ) { plan skip_all => "This system cannot fork"; } else { plan tests => 1; } if( fork ) { # parent pass("Only the parent should process the ending, not the child"); } else { exit; # child }
| ver. 1.4 |
Github
|
.
| PHP 7.3.33 | Generation time: 0.02 |
proxy
|
phpinfo
|
Settings