Change 11847 by gsar@moonru on 2001/09/03 16:47:54
typo in perl_clone() code causes local(*foo) breakage in pseudo-fork()
Affected files ...
... //depot/maint-5.6/perl/sv.c#62 edit
Differences ...
==== //depot/maint-5.6/perl/sv.c#62 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Mon Sep 3 11:00:05 2001
+++ perl/sv.c Mon Sep 3 11:00:05 2001
@@ -7540,7 +7540,7 @@
TOPPTR(nss,ix) = gp = gp_dup(gp);
(void)GpREFCNT_inc(gp);
gv = (GV*)POPPTR(ss,ix);
- TOPPTR(nss,ix) = gv_dup_inc(c);
+ TOPPTR(nss,ix) = gv_dup_inc(gv);
c = (char*)POPPTR(ss,ix);
TOPPTR(nss,ix) = pv_dup(c);
iv = POPIV(ss,ix);
End of Patch.
