Codebase list libdbix-class-perl / 6274881
Really work around RT#108390 (630e2ea8a) ( cherry-pick of 820a2936 ) A certain chain of events can still deadlock things without an explicit flush Peter Rabbitson 7 years ago
2 changed file(s) with 17 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all
3333 was not sufficient to cover up RT#67843)
3434
3535 * Misc
36 - Test suite is now officially certified to work under very high random
37 parallelism: META x_parallel_test_certified set to true accordingly
3638 - Typo fixes from downstream debian packagers (RT#112007)
3739
3840 0.082821 2016-02-11 17:58 (UTC)
8383
8484 # "say something" every 10 cycles to work around RT#108390
8585 # jesus christ our tooling is such a crock of shit :(
86 print "#\n" if not $tries % 10;
86 unless ( $tries % 10 ) {
87
88 # Turning on autoflush is crucial: if stars align just right buffering
89 # will ensure we never actually call write() underneath until the grand
90 # timeout is reached (and that's too long). Reproducible via
91 #
92 # DBICTEST_VERSION_WARNS_INDISCRIMINATELY=1 \
93 # DBICTEST_RUN_ALL_TESTS=1 \
94 # strace -f \
95 # prove -lj10 xt/extra/internals/
96 #
97 select( ( select(\*STDOUT), $|=1 )[0] );
98
99 print "#\n";
100 }
87101 }
88102
89103 return $res;