diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-02-10 09:57:23 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-05-24 15:50:57 +0100 |
| commit | d5b1589c09b534ccfeb2eae26b3de9339c1bf22b (patch) | |
| tree | 64fa4c03090b557d0687e9e3e845a62d74dc01fd /sv.c | |
| parent | e42956688f2e0df936f1a42811962946e4e185bf (diff) | |
| download | perl-d5b1589c09b534ccfeb2eae26b3de9339c1bf22b.tar.gz | |
Convert PAD_DUP to a function Perl_padlist_dup().
assert() that pads are never AvREAL().
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -11326,7 +11326,7 @@ S_sv_dup_common(pTHX_ const SV *const sstr, CLONE_PARAMS *const param) * duped GV may never be freed. A bit of a hack! DAPM */ CvGV(dstr) = (param->flags & CLONEf_JOIN_IN) ? NULL : gv_dup(CvGV(dstr), param) ; - PAD_DUP(CvPADLIST(dstr), CvPADLIST(sstr), param); + CvPADLIST(dstr) = padlist_dup(CvPADLIST(sstr), param); CvOUTSIDE(dstr) = CvWEAKOUTSIDE(sstr) ? cv_dup( CvOUTSIDE(dstr), param) |