projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Build Stdio and DCLSym modules as part of normal VMS perl build
[p5sagit/p5-mst-13.2.git]
/
vms
/
ext
/
Stdio
/
Stdio.xs
diff --git
a/vms/ext/Stdio/Stdio.xs
b/vms/ext/Stdio/Stdio.xs
index
0a7b47e
..
9744be0
100644
(file)
--- a/
vms/ext/Stdio/Stdio.xs
+++ b/
vms/ext/Stdio/Stdio.xs
@@
-87,6
+87,7
@@
newFH(FILE *fp, char type) {
HV *stash;
IO *io;
+ dTHR;
/* Find stash for VMS::Stdio. We don't do this once at boot
* to allow for possibility of threaded Perl with per-thread
* symbol tables. This code (through io = ...) is really