Commit | Line | Data |
---|---|---|
f06c8825 TC |
1 | #!./perl |
2 | ||
3 | BEGIN { | |
4 | chdir 't' if -d 't'; | |
5 | @INC = '../lib'; | |
6 | require "./test.pl"; | |
7 | require Config; | |
8 | $Config::Config{d_pseudofork} | |
9 | or skip_all("no psuedo-fork"); | |
10 | eval 'use Errno'; | |
11 | die $@ if $@ and !is_miniperl(); | |
12 | } | |
13 | ||
14 | # [perl #77672] backticks capture text printed to stdout when working | |
15 | # with multiple threads on windows | |
16 | watchdog(20); # before the fix this would often lock up | |
17 | ||
18 | fresh_perl_like(<<'PERL', qr/\A[z\n]+\z/, {}, "popen and threads"); | |
19 | if (!defined fork) { die "can't fork" } | |
20 | for(1..100) { | |
21 | print "zzzzzzzzzzzzz\n"; | |
22 | my $r=`perl -v`; | |
23 | print $r if($r=~/zzzzzzzzzzzzz/); | |
24 | } | |
25 | PERL | |
26 | ||
27 | done_testing(); |