✏️ 正在编辑: fork_first.t
路径:
/usr/share/doc/perl-Test-Simple/t/regression/fork_first.t
提示:
您可以编辑任何文件（包括二进制文件），但请注意不当修改可能导致文件损坏。
use Test2::Tools::Tiny; use strict; use warnings; use Test2::IPC; use Test2::Util qw/CAN_THREAD CAN_REALLY_FORK/; skip_all 'No IPC' unless CAN_REALLY_FORK || CAN_THREAD; if (CAN_REALLY_FORK) { my $pid = fork; die "Failed to fork: $!" unless defined $pid; if ($pid) { waitpid($pid, 0) } else { ok(1, "Pass fork"); exit 0; } } if (CAN_THREAD) { require threads; my $thread = threads->create( sub { ok(1, "Pass thread"); } ); $thread->join; } done_testing;
💾 保存文件
← 返回文件管理器