diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-09-03 17:07:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-09-03 17:07:54 +0000 |
| commit | 2ed3c8fc8b527d364fe413456a264da52edc9809 (patch) | |
| tree | dd4757fb5041d56a28cc8c4031929ee2e4733243 /sv.c | |
| parent | 21304a3b8e5f090f8ff24bdbacf7bbfe2c05388d (diff) | |
| download | perl-2ed3c8fc8b527d364fe413456a264da52edc9809.tar.gz | |
integrate change#11847 from maint-5.6
typo in perl_clone() code causes local(*foo) breakage in pseudo-fork()
p4raw-link: @11847 on //depot/maint-5.6/perl: ce3a5a02281aa23d1d6785a268dc7cc0f211788e
p4raw-id: //depot/perl@11848
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -9427,7 +9427,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, clone_params* param) TOPPTR(nss,ix) = gp = gp_dup(gp, param); (void)GpREFCNT_inc(gp); gv = (GV*)POPPTR(ss,ix); - TOPPTR(nss,ix) = gv_dup_inc(c, param); + TOPPTR(nss,ix) = gv_dup_inc(gv, param); c = (char*)POPPTR(ss,ix); TOPPTR(nss,ix) = pv_dup(c); iv = POPIV(ss,ix); |