[no reason given] is not good.

[p5sagit/p5-mst-13.2.git] / perlio.c

diff --git a/perlio.c b/perlio.c
index 0de2829..2c9e7a8 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -251,7 +251,7 @@ Perl_boot_core_PerlIO(pTHX)
 #ifdef PERLIO_IS_STDIO
 
 void
-PerlIO_init(void)
+PerlIO_init(pTHX)
 {
     /*
      * Does nothing (yet) except force this file to be included in perl
@@ -288,7 +288,7 @@ PerlIO_tmpfile(void)
 }
 
 void
-PerlIO_init(void)
+PerlIO_init(pTHX)
 {
     /*
      * Force this file to be included in perl binary. Which allows this
@@ -522,7 +522,7 @@ PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE_PARAMS *param)
     for (i=0; i < proto->cur; i++) {
        SV *arg = Nullsv;
        if (proto->array[i].arg)
-           arg = sv_dup(proto->array[i].arg,param);
+           arg = PerlIO_sv_dup(aTHX_ proto->array[i].arg,param);
        PerlIO_list_push(aTHX_ list, proto->array[i].funcs, arg);
     }
     return list;
@@ -531,6 +531,7 @@ PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE_PARAMS *param)
 void
 PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param)
 {
+#ifdef USE_ITHREADS
     PerlIO **table = &proto->Iperlio;
     PerlIO *f;
     PL_perlio = NULL;
@@ -547,6 +548,7 @@ PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param)
                f++;
            }
        }
+#endif
 }
 
 void