diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-09-05 22:25:25 -0300 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2013-09-21 08:47:40 -0300 |
| commit | 24d147a6349f969954a198149da3c250a48e8f5b (patch) | |
| tree | 5529b2a9687ffac4e94d7fc4eb9a92f7804bd7f5 /perlio.c | |
| parent | 58ab9e8b69853d478c6a8261b225b5a47d185d45 (diff) | |
| download | perl-24d147a6349f969954a198149da3c250a48e8f5b.tar.gz | |
Replaced an ifdef for sv_dup with USE_ITHREADS
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -653,7 +653,7 @@ PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE_PARAMS *param) list = PerlIO_list_alloc(aTHX); for (i=0; i < proto->cur; i++) { SV *arg = proto->array[i].arg; -#ifdef sv_dup +#ifdef USE_ITHREADS if (arg && param) arg = sv_dup(arg, param); #else @@ -2259,7 +2259,7 @@ PerlIO_sv_dup(pTHX_ SV *arg, CLONE_PARAMS *param) { if (!arg) return NULL; -#ifdef sv_dup +#ifdef USE_ITHREADS if (param) { arg = sv_dup(arg, param); SvREFCNT_inc_simple_void_NN(arg); |