diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-12-01 13:20:27 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-12-01 13:20:27 +0000 |
| commit | 8e41545fc5fd5bfd2ddf4723e7793ec207deefff (patch) | |
| tree | f9379ea5d6337a7fe6e9be3b62b49b946b3e9e78 /sv.c | |
| parent | 85a721ca70aa3423dbb60aac2a8755ab0fc07bbb (diff) | |
| download | perl-8e41545fc5fd5bfd2ddf4723e7793ec207deefff.tar.gz | |
In Perl_ss_dup(), case SAVEt_FREEPV can be rolled into case
SAVEt_DELETE for a space optimisation.
p4raw-id: //depot/perl@34969
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -11254,15 +11254,13 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param) else TOPPTR(nss,ix) = NULL; break; - case SAVEt_FREEPV: - c = (char*)POPPTR(ss,ix); - TOPPTR(nss,ix) = pv_dup_inc(c); - break; case SAVEt_DELETE: hv = (const HV *)POPPTR(ss,ix); TOPPTR(nss,ix) = hv_dup_inc(hv, param); i = POPINT(ss,ix); TOPINT(nss,ix) = i; + /* Fall through */ + case SAVEt_FREEPV: c = (char*)POPPTR(ss,ix); TOPPTR(nss,ix) = pv_dup_inc(c); break; |