diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-10-22 17:41:07 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-10-22 17:41:07 +0000 |
| commit | b6a0b9300b0eaf800e7a664e27d617bce6944c76 (patch) | |
| tree | 0d4421365d37ab8a63b8bb923fa005ed11246a24 /ext/threads/threads.xs | |
| parent | dfbf5f78362393b20394ef8121e67084daebc171 (diff) | |
| download | perl-b6a0b9300b0eaf800e7a664e27d617bce6944c76.tar.gz | |
Flush IO buffers before starting a thread, this mimics fork and seems like a saneer behaviour.
p4raw-id: //depot/perl@12569
Diffstat (limited to 'ext/threads/threads.xs')
| -rwxr-xr-x | ext/threads/threads.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs index b2fa87e5f9..6d8394f191 100755 --- a/ext/threads/threads.xs +++ b/ext/threads/threads.xs @@ -91,7 +91,7 @@ SV* Perl_thread_create(char* class, SV* init_function, SV* params) { obj = newSVrv(obj_ref, class); sv_setiv(obj, (IV)thread); SvREADONLY_on(obj); - + PerlIO_flush((PerlIO*)NULL); current_perl = PERL_GET_CONTEXT; /* |