1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use warnings;
use Test::More;
use Parallel::ForkManager;
plan skip_all => 'This is a bug in perl itself on Windows' if $^O eq 'MSWin32';
# It is broken on 5.16.2 and on blead Perl:
# It was reported to the Perl 5 porters:
# http://www.nntp.perl.org/group/perl.perl5.porters/2012/12/msg196821.html
eval "use utf8::all";
plan skip_all => 'Need utf8::all for this test crashing on Windows' if ($@);
plan tests => 1;
my $fork = Parallel::ForkManager->new( 1 );
foreach (1) {
my $pid = $fork->start and next;
$fork->finish;
}
$fork->wait_all_children;
ok(1);
|
