projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
[ID 20001025.011] [PATCH] t/io/open.t perl@7369[ 7350] breaks VMS perl
[p5sagit/p5-mst-13.2.git]
/
util.c
diff --git
a/util.c
b/util.c
index
2122d4e
..
619c5aa
100644
(file)
--- a/
util.c
+++ b/
util.c
@@
-3605,6
+3605,7
@@
Perl_new_struct_thread(pTHX_ struct perl_thread *t)
thr->specific = newAV();
thr->errsv = newSVpvn("", 0);
thr->flags = THRf_R_JOINABLE;
+ thr->thr_done = 0;
MUTEX_INIT(&thr->mutex);
JMPENV_BOOTSTRAP;