diff options
| author | David Mitchell <davem@iabyn.com> | 2010-09-19 12:14:45 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-09-20 08:16:12 +0100 |
| commit | b2ea9a00b30eb5881b863d7239dd6a3721e73136 (patch) | |
| tree | 3eb16ba88ac391035a246fd0a02a82ed5ba82dfb /sv.c | |
| parent | 57ef47cc7bcd1b57927d5010f363ccaa10f1d990 (diff) | |
| download | perl-b2ea9a00b30eb5881b863d7239dd6a3721e73136.tar.gz | |
PL_ofsgv is ref counted, so inc when duping
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -12337,7 +12337,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_regex_pad = AvARRAY(PL_regex_padav); /* shortcuts to various I/O objects */ - PL_ofsgv = gv_dup(proto_perl->Iofsgv, param); + PL_ofsgv = gv_dup_inc(proto_perl->Iofsgv, param); PL_stdingv = gv_dup(proto_perl->Istdingv, param); PL_stderrgv = gv_dup(proto_perl->Istderrgv, param); PL_defgv = gv_dup(proto_perl->Idefgv, param); |