|
 |
243a19 |
From 7b3443d31f11c15859593e5b710c301795a6de01 Mon Sep 17 00:00:00 2001
|
|
|
243a19 |
From: Tony Cook <tony@develop-help.com>
|
|
|
243a19 |
Date: Thu, 8 Jun 2017 11:06:39 +1000
|
|
|
243a19 |
Subject: [PATCH] [perl #131221] sv_dup/sv_dup_inc are only available under
|
|
|
243a19 |
threads
|
|
|
243a19 |
MIME-Version: 1.0
|
|
|
243a19 |
Content-Type: text/plain; charset=UTF-8
|
|
|
243a19 |
Content-Transfer-Encoding: 8bit
|
|
|
243a19 |
|
|
|
243a19 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
243a19 |
---
|
|
|
243a19 |
ext/PerlIO-via/via.xs | 42 +++++++++++++++++++++++-------------------
|
|
|
243a19 |
1 file changed, 23 insertions(+), 19 deletions(-)
|
|
|
243a19 |
|
|
|
243a19 |
diff --git a/ext/PerlIO-via/via.xs b/ext/PerlIO-via/via.xs
|
|
|
243a19 |
index 61953c8..d91c685 100644
|
|
|
243a19 |
--- a/ext/PerlIO-via/via.xs
|
|
|
243a19 |
+++ b/ext/PerlIO-via/via.xs
|
|
|
243a19 |
@@ -619,26 +619,30 @@ static PerlIO *
|
|
|
243a19 |
PerlIOVia_dup(pTHX_ PerlIO * f, PerlIO * o, CLONE_PARAMS * param,
|
|
|
243a19 |
int flags)
|
|
|
243a19 |
{
|
|
|
243a19 |
- if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags)) && param) {
|
|
|
243a19 |
- /* For a non-interpreter dup stash and obj have been set up
|
|
|
243a19 |
- by the implied push.
|
|
|
243a19 |
-
|
|
|
243a19 |
- But if this is a clone for a new interpreter we need to
|
|
|
243a19 |
- translate the objects to their dups.
|
|
|
243a19 |
- */
|
|
|
243a19 |
-
|
|
|
243a19 |
- PerlIOVia *fs = PerlIOSelf(f, PerlIOVia);
|
|
|
243a19 |
- PerlIOVia *os = PerlIOSelf(o, PerlIOVia);
|
|
|
243a19 |
-
|
|
|
243a19 |
- fs->obj = sv_dup_inc(os->obj, param);
|
|
|
243a19 |
- fs->stash = (HV*)sv_dup((SV*)os->stash, param);
|
|
|
243a19 |
- fs->var = sv_dup_inc(os->var, param);
|
|
|
243a19 |
- fs->cnt = os->cnt;
|
|
|
243a19 |
-
|
|
|
243a19 |
- /* fh, io, cached CVs left as NULL, PerlIOVia_method()
|
|
|
243a19 |
- will reinitialize them if needed */
|
|
|
243a19 |
+ if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags))) {
|
|
|
243a19 |
+#ifdef USE_ITHREADS
|
|
|
243a19 |
+ if (param) {
|
|
|
243a19 |
+ /* For a non-interpreter dup stash and obj have been set up
|
|
|
243a19 |
+ by the implied push.
|
|
|
243a19 |
+
|
|
|
243a19 |
+ But if this is a clone for a new interpreter we need to
|
|
|
243a19 |
+ translate the objects to their dups.
|
|
|
243a19 |
+ */
|
|
|
243a19 |
+
|
|
|
243a19 |
+ PerlIOVia *fs = PerlIOSelf(f, PerlIOVia);
|
|
|
243a19 |
+ PerlIOVia *os = PerlIOSelf(o, PerlIOVia);
|
|
|
243a19 |
+
|
|
|
243a19 |
+ fs->obj = sv_dup_inc(os->obj, param);
|
|
|
243a19 |
+ fs->stash = (HV*)sv_dup((SV*)os->stash, param);
|
|
|
243a19 |
+ fs->var = sv_dup_inc(os->var, param);
|
|
|
243a19 |
+ fs->cnt = os->cnt;
|
|
|
243a19 |
+
|
|
|
243a19 |
+ /* fh, io, cached CVs left as NULL, PerlIOVia_method()
|
|
|
243a19 |
+ will reinitialize them if needed */
|
|
|
243a19 |
+ }
|
|
|
243a19 |
+#endif
|
|
|
243a19 |
+ /* for a non-threaded dup fs->obj and stash should be set by _pushed() */
|
|
|
243a19 |
}
|
|
|
243a19 |
- /* for a non-threaded dup fs->obj and stash should be set by _pushed() */
|
|
|
243a19 |
|
|
|
243a19 |
return f;
|
|
|
243a19 |
}
|
|
|
243a19 |
--
|
|
|
243a19 |
2.9.4
|
|
|
243a19 |
|