Change 11848 by gsar@moonru on 2001/09/03 17:07:54
integrate change#11847 from maint-5.6
typo in perl_clone() code causes local(*foo) breakage in pseudo-fork()
Affected files ...
... //depot/perl/sv.c#463 edit
Differences ...
==== //depot/perl/sv.c#463 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Mon Sep 3 11:15:05 2001
+++ perl/sv.c Mon Sep 3 11:15:05 2001
@@ -9427,7 +9427,7 @@
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);
End of Patch.
