diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-12 21:16:33 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-12 21:16:33 +0000 |
| commit | 5e1c5d9c059365c8c0b3de19e24481eaae21f7e5 (patch) | |
| tree | 3b257f16605aa535a85c0b5d1ebd54e8084bbd68 /sv.c | |
| parent | 03cfe0aec1e921aae8754172fe1982455c07ce69 (diff) | |
| parent | 282f25c977e1960e4e088425df8229fa6a4a7563 (diff) | |
| download | perl-5e1c5d9c059365c8c0b3de19e24481eaae21f7e5.tar.gz | |
Integrate mainline.
p4raw-id: //depot/perlio@9111
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -8201,7 +8201,10 @@ dup_pvcv: } else CvPADLIST(dstr) = av_dup_inc(CvPADLIST(sstr)); - CvOUTSIDE(dstr) = cv_dup_inc(CvOUTSIDE(sstr)); + if (!CvANON(sstr) || CvCLONED(sstr)) + CvOUTSIDE(dstr) = cv_dup_inc(CvOUTSIDE(sstr)); + else + CvOUTSIDE(dstr) = cv_dup(CvOUTSIDE(sstr)); CvFLAGS(dstr) = CvFLAGS(sstr); break; default: |